aboutsummaryrefslogtreecommitdiffhomepage
path: root/tactics/hipattern.ml
diff options
context:
space:
mode:
Diffstat (limited to 'tactics/hipattern.ml')
-rw-r--r--tactics/hipattern.ml4
1 files changed, 1 insertions, 3 deletions
diff --git a/tactics/hipattern.ml b/tactics/hipattern.ml
index 9d2288346..7da059ae3 100644
--- a/tactics/hipattern.ml
+++ b/tactics/hipattern.ml
@@ -264,9 +264,7 @@ let mkPattern c = snd (Patternops.pattern_of_glob_constr c)
let mkGApp f args = DAst.make @@ GApp (f, args)
let mkGHole = DAst.make @@
GHole (QuestionMark {
- Evar_kinds.qm_obligation=Define false;
- Evar_kinds.qm_name=Anonymous;
- Evar_kinds.qm_record_field=None
+ Evar_kinds.default_question_mark with Evar_kinds.qm_obligation=Define false;
}, Namegen.IntroAnonymous, None)
let mkGProd id c1 c2 = DAst.make @@
GProd (Name (Id.of_string id), Explicit, c1, c2)