aboutsummaryrefslogtreecommitdiffhomepage
path: root/pretyping/coercion.mli
blob: 060ac6ce2744ba4ef7d007316d863c1c9212dd67 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

(* $Id$ *)

(*i*)
open Evd
open Term
open Sign
open Environ
open Evarutil
(*i*)

(* Coercions. *)

val inh_app_fun :
  env -> 'a evar_defs -> unsafe_judgment -> unsafe_judgment
val inh_tosort_force :
  env -> 'a evar_defs -> unsafe_judgment -> unsafe_judgment
val inh_tosort :
  env -> 'a evar_defs -> unsafe_judgment -> unsafe_judgment
val inh_ass_of_j : 
  env -> 'a evar_defs -> unsafe_judgment -> typed_type
val inh_coerce_to : 
  env -> 'a evar_defs -> constr -> unsafe_judgment -> unsafe_judgment
val inh_conv_coerce_to : 
  env -> 'a evar_defs -> constr -> unsafe_judgment -> unsafe_judgment
val inh_cast_rel : 
  env -> 'a evar_defs -> unsafe_judgment -> unsafe_judgment -> unsafe_judgment

val inh_apply_rel_list : bool -> env -> 'a evar_defs ->
  unsafe_judgment list -> unsafe_judgment -> 'b * ('c * constr option) 
    -> unsafe_judgment