aboutsummaryrefslogtreecommitdiffhomepage
path: root/plugins/funind/rawtermops.mli
diff options
context:
space:
mode:
Diffstat (limited to 'plugins/funind/rawtermops.mli')
-rw-r--r--plugins/funind/rawtermops.mli18
1 files changed, 9 insertions, 9 deletions
diff --git a/plugins/funind/rawtermops.mli b/plugins/funind/rawtermops.mli
index 9e872c236..b6c407a24 100644
--- a/plugins/funind/rawtermops.mli
+++ b/plugins/funind/rawtermops.mli
@@ -1,4 +1,4 @@
-open Rawterm
+open Glob_term
(* Ocaml 3.06 Map.S does not handle is_empty *)
val idmap_is_empty : 'a Names.Idmap.t -> bool
@@ -73,8 +73,8 @@ val change_vars : Names.identifier Names.Idmap.t -> glob_constr -> glob_constr
*)
val alpha_pat :
Names.Idmap.key list ->
- Rawterm.cases_pattern ->
- Rawterm.cases_pattern * Names.Idmap.key list *
+ Glob_term.cases_pattern ->
+ Glob_term.cases_pattern * Names.Idmap.key list *
Names.identifier Names.Idmap.t
(* [alpha_rt avoid rt] alpha convert [rt] s.t. the result repects barendregt
@@ -84,16 +84,16 @@ val alpha_rt : Names.identifier list -> glob_constr -> glob_constr
(* same as alpha_rt but for case branches *)
val alpha_br : Names.identifier list ->
- Util.loc * Names.identifier list * Rawterm.cases_pattern list *
- Rawterm.glob_constr ->
- Util.loc * Names.identifier list * Rawterm.cases_pattern list *
- Rawterm.glob_constr
+ Util.loc * Names.identifier list * Glob_term.cases_pattern list *
+ Glob_term.glob_constr ->
+ Util.loc * Names.identifier list * Glob_term.cases_pattern list *
+ Glob_term.glob_constr
(* Reduction function *)
val replace_var_by_term :
Names.identifier ->
- Rawterm.glob_constr -> Rawterm.glob_constr -> Rawterm.glob_constr
+ Glob_term.glob_constr -> Glob_term.glob_constr -> Glob_term.glob_constr
@@ -120,7 +120,7 @@ val ids_of_rawterm: glob_constr -> Names.Idset.t
(*
removing let_in construction in a rawterm
*)
-val zeta_normalize : Rawterm.glob_constr -> Rawterm.glob_constr
+val zeta_normalize : Glob_term.glob_constr -> Glob_term.glob_constr
val expand_as : glob_constr -> glob_constr