diff options
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/prettyp.ml | 4 | ||||
| -rw-r--r-- | printing/printmod.ml | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/printing/prettyp.ml b/printing/prettyp.ml index da230ee0d..031db5b0c 100644 --- a/printing/prettyp.ml +++ b/printing/prettyp.ml @@ -531,11 +531,11 @@ let print_full_pure_context () = | OpaqueDef lc -> str "Theorem " ++ print_basename con ++ cut () ++ str " : " ++ pr_ltype typ ++ str "." ++ fnl () ++ - str "Proof " ++ pr_lconstr (Lazyconstr.force_opaque lc) + str "Proof " ++ pr_lconstr (Opaqueproof.force_proof lc) | Def c -> str "Definition " ++ print_basename con ++ cut () ++ str " : " ++ pr_ltype typ ++ cut () ++ str " := " ++ - pr_lconstr (Lazyconstr.force c)) + pr_lconstr (Mod_subst.force_constr c)) ++ str "." ++ fnl () ++ fnl () | "INDUCTIVE" -> let mind = Global.mind_of_delta_kn kn in diff --git a/printing/printmod.ml b/printing/printmod.ml index b5f84c79e..34224d7b5 100644 --- a/printing/printmod.ml +++ b/printing/printmod.ml @@ -153,7 +153,7 @@ let print_body is_impl env mp (l,body) = | Def l when is_impl -> spc () ++ hov 2 (str ":= " ++ - Printer.pr_lconstr_env env (Lazyconstr.force l)) + Printer.pr_lconstr_env env (Mod_subst.force_constr l)) | _ -> mt ()) ++ str ".") | SFBmind mib -> |