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.