diff options
Diffstat (limited to 'contrib/correctness/ptactic.ml')
| -rw-r--r-- | contrib/correctness/ptactic.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/correctness/ptactic.ml b/contrib/correctness/ptactic.ml index aac393690..c24baea80 100644 --- a/contrib/correctness/ptactic.ml +++ b/contrib/correctness/ptactic.ml @@ -17,6 +17,7 @@ open Libnames open Term open Pretyping open Pfedit +open Decl_kinds open Vernacentries open Pmisc @@ -27,7 +28,6 @@ open Prename open Peffect open Pmonad - (* [coqast_of_prog: program -> constr * constr] * Traduction d'un programme impératif en un but (second constr) * et un terme de preuve partiel pour ce but (premier constr) @@ -239,7 +239,7 @@ let correctness s p opttac = let sigma = Evd.empty in let cty = Reduction.nf_betaiota cty in let id = id_of_string s in - start_proof id (false, NeverDischarge) sign cty correctness_hook; + start_proof id (IsGlobal (Proof Lemma)) sign cty correctness_hook; Penv.new_edited id (v,p); if !debug then show_open_subgoals(); deb_mess (str"Pred.red_cci: Reduction..." ++ fnl ()); |