diff options
| author |  Siddharth Bhat <siddu.druid@gmail.com> | 2018-07-17 01:14:36 +0200 |
|---|---|---|
| committer | Siddharth Bhat <siddu.druid@gmail.com> | 2018-07-17 13:14:44 +0200 |
| commit | 83afcfd21be0084b2eff33ffd9e2d8b785679d4a (patch) | |
| tree | 7743af4c6fd7ebdabab8cdebf2f51b7285896ece /tactics | |
| parent | 78321b33b0e5af859f2f57ef96aeb95fad258138 (diff) | |
change into QuestionMark default
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/hipattern.ml | 4 |
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) |