aboutsummaryrefslogtreecommitdiff
path: root/pretyping/astterm.mli
blob: dbda7c95863fb5c9bc94ec58ee1cc4d4bf17deb1 (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
(* $Id$ *)

(*i*)
open Names
open Term
open Evd
(*i*)

val dbize_op : CoqAst.loc -> string -> CoqAst.t list -> constr list -> constr
val dbize    : unit assumptions -> CoqAst.t -> constr

val absolutize_cci : 'c evar_map -> unit assumptions -> constr -> constr
val dbize_cci      : 'c evar_map -> unit assumptions -> CoqAst.t -> constr
val absolutize_fw  : 'c evar_map -> unit assumptions -> constr -> constr
val dbize_fw       : 'c evar_map -> unit assumptions -> CoqAst.t -> constr

val raw_constr_of_com :
  'c evar_map -> 'a assumptions -> CoqAst.t -> constr
val raw_fconstr_of_com :
  'c evar_map -> 'a assumptions -> CoqAst.t -> constr
val raw_constr_of_compattern :
  'c evar_map -> 'a assumptions -> CoqAst.t -> constr

val globalize_command : CoqAst.t -> CoqAst.t
val globalize_ast     : CoqAst.t -> CoqAst.t