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.