diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-01-22 21:20:52 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-01-22 21:20:52 +0000 |
commit | 84117b9db991c0cf25d3cbdc5bfb798c05a9d3ea (patch) | |
tree | 6279ce734abe8d363aaba794cd0026583b88c84a /contrib | |
parent | 8e1e1503a1736dc7b5ab1a0d34dbc2e3e451998e (diff) |
MAJ
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3598 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib')
-rw-r--r-- | contrib/romega/ReflOmegaCore.v | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/contrib/romega/ReflOmegaCore.v b/contrib/romega/ReflOmegaCore.v index 469df1543..95e4a5f5a 100644 --- a/contrib/romega/ReflOmegaCore.v +++ b/contrib/romega/ReflOmegaCore.v @@ -667,9 +667,8 @@ Recursive Tactic Definition loop t := ( And Simplify := ( Match Context With [|- ?1 ] -> Try (loop ?1) | _ -> Idtac). -(* L'utilisation de Match n'est qu'un hack pour contourner un bug de la 7.0 *) Tactic Definition ProveStable x th := - (Match x With [?1] -> Unfold term_stable ?1; Intros; Simplify; Simpl; Apply th). + Unfold term_stable x; Intros; Simplify; Simpl; Apply th. (* \subsubsection{Les règles elle mêmes} *) Definition Tplus_assoc_l [t: term] := |