diff options
Diffstat (limited to 'library')
| -rw-r--r-- | library/impargs.ml | 4 | ||||
| -rw-r--r-- | library/impargs.mli | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/library/impargs.ml b/library/impargs.ml index d7d0d48796..707b2f4cbe 100644 --- a/library/impargs.ml +++ b/library/impargs.ml @@ -19,7 +19,7 @@ open Libobject open Lib open Nametab open Pp -open Topconstr +open Constrexpr open Termops open Namegen open Decl_kinds @@ -614,7 +614,7 @@ let declare_mib_implicits kn = (inImplicits (ImplMutualInductive (kn,flags),List.flatten imps)) (* Declare manual implicits *) -type manual_explicitation = Topconstr.explicitation * (bool * bool * bool) +type manual_explicitation = Constrexpr.explicitation * (bool * bool * bool) type manual_implicits = manual_explicitation list diff --git a/library/impargs.mli b/library/impargs.mli index 04251f332e..57f1ac71e6 100644 --- a/library/impargs.mli +++ b/library/impargs.mli @@ -87,7 +87,7 @@ val positions_of_implicits : implicits_list -> int list (** A [manual_explicitation] is a tuple of a positional or named explicitation with maximal insertion, force inference and force usage flags. Forcing usage makes the argument implicit even if the automatic inference considers it not inferable. *) -type manual_explicitation = Topconstr.explicitation * +type manual_explicitation = Constrexpr.explicitation * (maximal_insertion * force_inference * bool) type manual_implicits = manual_explicitation list |