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: term_typing.mli 9795 2007-04-25 15:13:45Z soubiran $ i*)
22
val translate_local_def : env -> constr * types option ->
23
constr * types * Univ.constraints
25
val translate_local_assum : env -> types ->
26
types * Univ.constraints
28
val infer_declaration : env -> constant_entry ->
29
constr_substituted option * constant_type * constraints * bool * bool * bool
31
val build_constant_declaration : env -> 'a ->
32
constr_substituted option * constant_type * constraints * bool * bool * bool ->
35
val translate_constant : env -> constant -> constant_entry -> constant_body
38
env -> mutual_inductive_entry -> mutual_inductive_body
40
val translate_recipe :
41
env -> constant -> Cooking.recipe -> constant_body