Module Coq.Reals.SplitAbsolu

Require Export Rbasic_fun.

Tactic Definition SplitAbs :=
  Match Context With
    | [ |- [(case_Rabsolu ?1)] ] ->
         Case (case_Rabsolu ?1); Try SplitAbs.

Tactic Definition SplitAbsolu :=
  Match Context With
    | [ id:[(Rabsolu ?)] |- ? ] -> Generalize id; Clear id;Try SplitAbsolu
    | [ |- [(Rabsolu ?1)] ] -> Unfold Rabsolu; Try SplitAbs;Intros.


Index