1
(************************************************************************)
2
(* v * The Coq Proof Assistant / The Coq Development Team *)
3
(* <O___,, * CNRS-Ecole Polytechnique-INRIA Futurs-Universite Paris Sud *)
4
(* \VV/ **************************************************************)
5
(* // * This file is distributed under the terms of the *)
6
(* * GNU Lesser General Public License Version 2.1 *)
7
(************************************************************************)
9
(*i $Id: cooking.mli 9795 2007-04-25 15:13:45Z soubiran $ i*)
17
(*s Cooking the constants. *)
19
type work_list = identifier array Cmap.t * identifier array KNmap.t
22
d_from : constant_body;
23
d_abstract : Sign.named_context;
24
d_modlist : work_list }
28
constr_substituted option * constant_type * constraints * bool * bool
31
(*s Utility functions used in module [Discharge]. *)
33
val expmod_constr : work_list -> constr -> constr
35
val clear_cooking_sharing : unit -> unit