diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-12-09 08:40:25 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-12-09 08:40:25 +0000 |
| commit | 0f532fe6403342f2f7b0a2da07bbf4112f7f85b4 (patch) | |
| tree | 98f9b9f2db945e482feef36ab88102cb560c6f3c /contrib/romega | |
| parent | 3b6afbde1c6c2b7800adcbc8b6c3d21a4dbd99db (diff) | |
Problèmes et améliorations divers affichage
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3394 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/romega')
| -rw-r--r-- | contrib/romega/refl_omega.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/contrib/romega/refl_omega.ml b/contrib/romega/refl_omega.ml index e6e7074aa..75bc2d1b0 100644 --- a/contrib/romega/refl_omega.ml +++ b/contrib/romega/refl_omega.ml @@ -574,7 +574,7 @@ let prepare_and_play env tac_hyps trace_solution = Pp.ppnl (Printer.prterm reified_trace_solution); end; Tactics.generalize l_generalized >> - Tactics.change_in_concl reified >> + Tactics.change_in_concl None reified >> Tacticals.tclTRY (Tactics.apply (mkApp (Lazy.force coq_normalize_sequent, [|l_reified_tac_norms |]))) >> @@ -797,13 +797,13 @@ let destructure_hyps gl = match destructurate (pf_nf gl typ) with | Kapp("nat",_) -> (tclTHEN - (convert_hyp + (convert_hyp_no_check (i,body, (mkApp (Lazy.force coq_neq, [| t1;t2|])))) (loop evbd lit)) | Kapp("Z",_) -> (tclTHEN - (convert_hyp + (convert_hyp_no_check (i,body, (mkApp (Lazy.force coq_Zne, [| t1;t2|])))) (loop evbd lit)) |