diff options
| -rw-r--r-- | contrib/correctness/ptactic.ml | 2 | ||||
| -rw-r--r-- | contrib/field/field.ml4 | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/contrib/correctness/ptactic.ml b/contrib/correctness/ptactic.ml index b272f6d042..dc70594136 100644 --- a/contrib/correctness/ptactic.ml +++ b/contrib/correctness/ptactic.ml @@ -69,7 +69,7 @@ let coqast_of_prog p = (* 6. résolution implicites *) deb_mess (fnl () ++ str"Resolution implicits (? => Meta(n))..." ++ fnl ()); - let oc = understand_gen_tcc Evd.empty (Global.env()) [] [] None r in + let oc = understand_gen_tcc Evd.empty (Global.env()) [] None r in deb_print (Printer.prterm_env (Global.env())) (snd oc); p,oc,ty,v diff --git a/contrib/field/field.ml4 b/contrib/field/field.ml4 index 74fbd7f6b5..36a29ab2dc 100644 --- a/contrib/field/field.ml4 +++ b/contrib/field/field.ml4 @@ -144,13 +144,13 @@ END (* Guesses the type and calls Field_Gen with the right theory *) let field g = Library.check_required_library ["Coq";"field";"Field"]; - let ist = { lfun=[]; lmatch=[]; debug=get_debug () } in + let ist = { lfun=[]; debug=get_debug () } in let typ = match Hipattern.match_with_equation (pf_concl g) with | Some (eq,t::args) when eq = (Coqlib.build_coq_eq_data()).Coqlib.eq -> t | _ -> error "The statement is not built from Leibniz' equality" in let th = VConstr (lookup typ) in - (interp_tac_gen [(id_of_string "FT",th)] [] (get_debug ()) + (interp_tac_gen [(id_of_string "FT",th)] (get_debug ()) <:tactic< Match Context With [|-(!eq ?1 ?2 ?3)] -> Field_Gen FT>>) g (* Verifies that all the terms have the same type and gives the right theory *) |