diff options
author | notin <notin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-10-17 12:53:34 +0000 |
---|---|---|
committer | notin <notin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-10-17 12:53:34 +0000 |
commit | 28dc7a05cc1d3e03ed1435b3db4340db954a59e2 (patch) | |
tree | 63cdf18cd47260eb90550f62f7b22e2e2e208f6c /theories/Reals/SplitAbsolu.v | |
parent | 744e7f6a319f4d459a3cc2309f575d43041d75aa (diff) |
Mise en forme des theories
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9245 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Reals/SplitAbsolu.v')
-rw-r--r-- | theories/Reals/SplitAbsolu.v | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/theories/Reals/SplitAbsolu.v b/theories/Reals/SplitAbsolu.v index 10d710c17..5882f953c 100644 --- a/theories/Reals/SplitAbsolu.v +++ b/theories/Reals/SplitAbsolu.v @@ -12,14 +12,14 @@ Require Import Rbasic_fun. Ltac split_case_Rabs := match goal with - | |- context [(Rcase_abs ?X1)] => + | |- context [(Rcase_abs ?X1)] => case (Rcase_abs X1); try split_case_Rabs end. Ltac split_Rabs := match goal with - | id:context [(Rabs _)] |- _ => generalize id; clear id; try split_Rabs - | |- context [(Rabs ?X1)] => + | id:context [(Rabs _)] |- _ => generalize id; clear id; try split_Rabs + | |- context [(Rabs ?X1)] => unfold Rabs in |- *; try split_case_Rabs; intros - end.
\ No newline at end of file + end. |