diff options
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/omega/coq_omega.ml | 6 | ||||
| -rw-r--r-- | contrib/romega/refl_omega.ml | 6 |
2 files changed, 6 insertions, 6 deletions
diff --git a/contrib/omega/coq_omega.ml b/contrib/omega/coq_omega.ml index f26d0dc2ab..4373da4628 100644 --- a/contrib/omega/coq_omega.ml +++ b/contrib/omega/coq_omega.ml @@ -484,7 +484,7 @@ let abstract_path typ path t = let focused_simpl path gl = let newc = context (fun i t -> pf_nf gl t) (List.rev path) (pf_concl gl) in - convert_concl newc gl + convert_concl_no_check newc gl let focused_simpl path = simpl_time (focused_simpl path) @@ -1723,13 +1723,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)) diff --git a/contrib/romega/refl_omega.ml b/contrib/romega/refl_omega.ml index e6e7074aa8..75bc2d1b0f 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)) |