aboutsummaryrefslogtreecommitdiff
path: root/interp/constrintern.ml
diff options
context:
space:
mode:
authorHugo Herbelin2020-02-09 06:48:07 +0100
committerHugo Herbelin2020-02-11 16:18:59 +0100
commit18e0103e33b276a88000dde8fccc772af2ca67ea (patch)
tree00a7188ec3805645d185780aef9a9726b647be24 /interp/constrintern.ml
parentcd5bb3c76e430392e4363dc7b4b5bbe0cafa466f (diff)
Reinforcing the role of type "typing_constraint".
WithoutTypeConstraint says it can be a term. In particular, if it has manual implicit arguments, these will be allowed only in leading lambdas. I.e. it can start with "fun {x}" but not with "forall {x}". New constructor UnknownIfTermOrType allows to be both a term or a type. In particular, if it allowed start both with "fun {x}" and "forall {x}".
Diffstat (limited to 'interp/constrintern.ml')
-rw-r--r--interp/constrintern.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml
index b1e12bd66e..38f9b57e45 100644
--- a/interp/constrintern.ml
+++ b/interp/constrintern.ml
@@ -2339,7 +2339,7 @@ let extract_ids env =
let scope_of_type_kind sigma = function
| IsType -> Notation.current_type_scope_name ()
| OfType typ -> compute_type_scope sigma typ
- | WithoutTypeConstraint -> None
+ | WithoutTypeConstraint | UnknownIfTermOrType -> None
let empty_ltac_sign = {
ltac_vars = Id.Set.empty;