~ubuntu-branches/ubuntu/wily/coq-doc/wily

« back to all changes in this revision

Viewing changes to pretyping/retyping.mli

  • Committer: Package Import Robot
  • Author(s): Stéphane Glondu
  • Date: 2012-01-03 23:42:48 UTC
  • mfrom: (1.2.4)
  • Revision ID: package-import@ubuntu.com-20120103234248-p9r8h1579n67v55a
Tags: 8.3pl3-1
New upstream release

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
1
(************************************************************************)
2
2
(*  v      *   The Coq Proof Assistant  /  The Coq Development Team     *)
3
 
(* <O___,, *   INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2010     *)
 
3
(* <O___,, *   INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2011     *)
4
4
(*   \VV/  **************************************************************)
5
5
(*    //   *      This file is distributed under the terms of the       *)
6
6
(*         *       GNU Lesser General Public License Version 2.1        *)
7
7
(************************************************************************)
8
8
 
9
 
(*i $Id: retyping.mli 13323 2010-07-24 15:57:30Z herbelin $ i*)
 
9
(*i $Id: retyping.mli 14641 2011-11-06 11:59:10Z herbelin $ i*)
10
10
 
11
11
(*i*)
12
12
open Names
21
21
   either produces a wrong result or raise an anomaly. Use with care.
22
22
   It doesn't handle predicative universes too. *)
23
23
 
24
 
val get_type_of : ?refresh:bool -> env -> evar_map -> constr -> types
25
 
val get_sort_of : env -> evar_map -> types -> sorts
26
 
val get_sort_family_of : env -> evar_map -> types -> sorts_family
 
24
(** The "polyprop" optional argument is used by the extraction to
 
25
    disable "Prop-polymorphism", cf comment in [inductive.ml] *)
 
26
 
 
27
val get_type_of :
 
28
  ?polyprop:bool -> ?refresh:bool -> env -> evar_map -> constr -> types
 
29
 
 
30
val get_sort_of :
 
31
  ?polyprop:bool -> env -> evar_map -> types -> sorts
 
32
 
 
33
val get_sort_family_of :
 
34
  ?polyprop:bool -> env -> evar_map -> types -> sorts_family
27
35
 
28
36
(* Makes an assumption from a constr *)
29
37
val get_assumption_of : env -> evar_map -> constr -> types