diff options
Diffstat (limited to 'pretyping/retyping.mli')
| -rw-r--r-- | pretyping/retyping.mli | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/pretyping/retyping.mli b/pretyping/retyping.mli new file mode 100644 index 00000000..f29ac8d8 --- /dev/null +++ b/pretyping/retyping.mli @@ -0,0 +1,36 @@ +(************************************************************************) +(* v * The Coq Proof Assistant / The Coq Development Team *) +(* <O___,, * CNRS-Ecole Polytechnique-INRIA Futurs-Universite Paris Sud *) +(* \VV/ **************************************************************) +(* // * This file is distributed under the terms of the *) +(* * GNU Lesser General Public License Version 2.1 *) +(************************************************************************) + +(*i $Id: retyping.mli,v 1.16.2.1 2004/07/16 19:30:46 herbelin Exp $ i*) + +(*i*) +open Names +open Term +open Evd +open Environ +open Pattern +open Termops +(*i*) + +(* This family of functions assumes its constr argument is known to be + well-typable. It does not type-check, just recompute the type + without any costly verifications. On non well-typable terms, it + either produces a wrong result or raise an anomaly. Use with care. + It doesn't handle predicative universes too. *) + +val get_type_of : env -> evar_map -> constr -> constr +val get_sort_of : env -> evar_map -> types -> sorts +val get_sort_family_of : env -> evar_map -> types -> sorts_family + +val get_type_of_with_meta : env -> evar_map -> metamap -> constr -> constr + +(* Makes an assumption from a constr *) +val get_assumption_of : env -> evar_map -> constr -> types + +(* Makes an unsafe judgment from a constr *) +val get_judgment_of : env -> evar_map -> constr -> unsafe_judgment |