diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-02-26 18:52:24 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-02-26 18:52:24 +0000 |
| commit | 60de53d159c85b8300226a61aa502a7e0dd2f04b (patch) | |
| tree | e542ed90d58872a75816d451ae26e38fa7b1d9f9 /printing | |
| parent | 7dd28b4772251af6ae3641ec63a8251153915e21 (diff) | |
kernel/declarations becomes a pure mli
- constr_substituted and lazy_constr are now in a dedicated kernel/lazyconstr.ml
- the functions that were in declarations.ml (mostly substitution utilities
and hashcons) are now in kernel/declareops.ml
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16250 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/prettyp.ml | 10 | ||||
| -rw-r--r-- | printing/printmod.ml | 2 |
2 files changed, 6 insertions, 6 deletions
diff --git a/printing/prettyp.ml b/printing/prettyp.ml index 732903af9..18bfeb6d6 100644 --- a/printing/prettyp.ml +++ b/printing/prettyp.ml @@ -399,7 +399,7 @@ let gallina_print_section_variable id = with_line_skip (print_name_infos (VarRef id)) let print_body = function - | Some lc -> pr_lconstr (Declarations.force lc) + | Some lc -> pr_lconstr (Lazyconstr.force lc) | None -> (str"<no body>") let print_typed_body (val_0,typ) = @@ -411,7 +411,7 @@ let ungeneralized_type_of_constant_type = function let print_constant with_values sep sp = let cb = Global.lookup_constant sp in - let val_0 = body_of_constant cb in + let val_0 = Declareops.body_of_constant cb in let typ = ungeneralized_type_of_constant_type cb.const_type in hov 0 ( match val_0 with @@ -566,11 +566,11 @@ let print_full_pure_context () = | OpaqueDef lc -> str "Theorem " ++ print_basename con ++ cut () ++ str " : " ++ pr_ltype typ ++ str "." ++ fnl () ++ - str "Proof " ++ pr_lconstr (Declarations.force_opaque lc) + str "Proof " ++ pr_lconstr (Lazyconstr.force_opaque lc) | Def c -> str "Definition " ++ print_basename con ++ cut () ++ str " : " ++ pr_ltype typ ++ cut () ++ str " := " ++ - pr_lconstr (Declarations.force c)) + pr_lconstr (Lazyconstr.force c)) ++ str "." ++ fnl () ++ fnl () | "INDUCTIVE" -> let mind = Global.mind_of_delta_kn kn in @@ -654,7 +654,7 @@ let print_opaque_name qid = match global qid with | ConstRef cst -> let cb = Global.lookup_constant cst in - if constant_has_body cb then + if Declareops.constant_has_body cb then print_constant_with_infos cst else error "Not a defined constant." diff --git a/printing/printmod.ml b/printing/printmod.ml index 07a5d954c..57d990b86 100644 --- a/printing/printmod.ml +++ b/printing/printmod.ml @@ -120,7 +120,7 @@ let print_body is_impl env mp (l,body) = | Def l when is_impl -> spc () ++ hov 2 (str ":= " ++ - Printer.pr_lconstr_env env (Declarations.force l)) + Printer.pr_lconstr_env env (Lazyconstr.force l)) | _ -> mt ()) ++ str ".") | SFBmind mib -> |