From 15b6c9b6fa268a9af6dd4f05961e469545e92a6f Mon Sep 17 00:00:00 2001 From: Enrico Tassi Date: Mon, 24 Feb 2014 20:46:32 +0100 Subject: Lazyconstr -> Opaqueproof Make this module deal only with opaque proofs. Make discharging/substitution invariant more explicit via a third constructor. --- kernel/cooking.mli | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'kernel/cooking.mli') diff --git a/kernel/cooking.mli b/kernel/cooking.mli index 05c7a2040..8493b81d8 100644 --- a/kernel/cooking.mli +++ b/kernel/cooking.mli @@ -14,7 +14,7 @@ open Univ (** {6 Cooking the constants. } *) -type recipe = { from : constant_body; info : Lazyconstr.cooking_info } +type recipe = { from : constant_body; info : Opaqueproof.cooking_info } type inline = bool @@ -23,9 +23,9 @@ type result = * Context.section_context option val cook_constant : env -> recipe -> result -val cook_constr : Lazyconstr.cooking_info -> Term.constr -> Term.constr +val cook_constr : Opaqueproof.cooking_info -> Term.constr -> Term.constr (** {6 Utility functions used in module [Discharge]. } *) -val expmod_constr : Lazyconstr.work_list -> constr -> constr +val expmod_constr : Opaqueproof.work_list -> constr -> constr -- cgit v1.2.3