diff options
| author |  filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-07-05 14:41:37 +0000 |
|---|---|---|
| committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-07-05 14:41:37 +0000 |
| commit | cd9acfec55378cfe1651b910b93387724efe251d (patch) | |
| tree | b7592eb3ed6cd28d2ad3f1ba07a163a1563670b8 /contrib/omega | |
| parent | 90a916ee7e0c995dd6a402b685656a02de3947d6 (diff) | |
correction bug Omega
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1826 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/omega')
| -rw-r--r-- | contrib/omega/coq_omega.ml | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/contrib/omega/coq_omega.ml b/contrib/omega/coq_omega.ml index e17336a71..7307075be 100644 --- a/contrib/omega/coq_omega.ml +++ b/contrib/omega/coq_omega.ml @@ -1368,9 +1368,10 @@ let normalize_equation id flag theorem pos t t1 t2 (tactic,defs) = (clear [id]) in if tac <> [] then - ((id,((tclTHEN ((tclTHEN (shift_left) (mk_then tac))) - (intros_using [id])))) :: tactic, - compile id flag t' :: defs) + let id' = new_identifier () in + ((id',((tclTHEN ((tclTHEN (shift_left) (mk_then tac))) + (intros_using [id'])))) :: tactic, + compile id' flag t' :: defs) else (tactic,defs) |