diff options
author | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-10-24 14:35:25 +0200 |
---|---|---|
committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-10-25 17:42:55 +0200 |
commit | bf4112094feb1a705d8bdaea3fb0febc4ef3ff59 (patch) | |
tree | 49bf826bd68429694abb86df757d54147fb80554 /plugins/ltac/taccoerce.ml | |
parent | 0897d0f642c19419c513f9609782436bebf28f5b (diff) |
[general] Remove Econstr dependency from `intf`
To this extent we factor out the relevant bits to a new file,
ltac_pretype.
Diffstat (limited to 'plugins/ltac/taccoerce.ml')
-rw-r--r-- | plugins/ltac/taccoerce.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/plugins/ltac/taccoerce.ml b/plugins/ltac/taccoerce.ml index 9e3a54cc8..a79a92a66 100644 --- a/plugins/ltac/taccoerce.ml +++ b/plugins/ltac/taccoerce.ml @@ -10,7 +10,6 @@ open Util open Names open Term open EConstr -open Pattern open Misctypes open Genarg open Stdarg @@ -24,7 +23,7 @@ let (wit_constr_context : (Empty.t, Empty.t, EConstr.constr) Genarg.genarg_type) wit (* includes idents known to be bound and references *) -let (wit_constr_under_binders : (Empty.t, Empty.t, constr_under_binders) Genarg.genarg_type) = +let (wit_constr_under_binders : (Empty.t, Empty.t, Ltac_pretype.constr_under_binders) Genarg.genarg_type) = let wit = Genarg.create_arg "constr_under_binders" in let () = register_val0 wit None in wit |