diff options
| author | Matthieu Sozeau | 2016-06-27 23:36:31 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2016-06-27 23:36:31 +0200 |
| commit | 9f9c1dc37ca3ffe30417c8f7b63d62ad5b63e51b (patch) | |
| tree | 0659a5bfd6c60a82cb0c15026ee490903930eead /pretyping/cases.ml | |
| parent | 727dcedd8d1d6be5c77cbf4bbe08ff18facf3ba2 (diff) | |
| parent | 5193311836394d3d18a0187a0d77657aa060b651 (diff) | |
Merge branch 'shrinkobl' into trunk
Diffstat (limited to 'pretyping/cases.ml')
| -rw-r--r-- | pretyping/cases.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/pretyping/cases.ml b/pretyping/cases.ml index b8fb61e35d..205a199f7f 100644 --- a/pretyping/cases.ml +++ b/pretyping/cases.ml @@ -2032,7 +2032,9 @@ let mk_JMeq evdref typ x typ' y = let mk_JMeq_refl evdref typ x = papp evdref coq_JMeq_refl [| typ; x |] -let hole = GHole (Loc.ghost, Evar_kinds.QuestionMark (Evar_kinds.Define true), Misctypes.IntroAnonymous, None) +let hole = + GHole (Loc.ghost, Evar_kinds.QuestionMark (Evar_kinds.Define false), + Misctypes.IntroAnonymous, None) let constr_of_pat env evdref arsign pat avoid = let rec typ env (ty, realargs) pat avoid = |