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 /vernac | |
| parent | 78321b33b0e5af859f2f57ef96aeb95fad258138 (diff) | |
change into QuestionMark default
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/comProgramFixpoint.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/vernac/comProgramFixpoint.ml b/vernac/comProgramFixpoint.ml index 00d14f5b0..102a98f04 100644 --- a/vernac/comProgramFixpoint.ml +++ b/vernac/comProgramFixpoint.ml @@ -188,9 +188,7 @@ let build_wellfounded (recname,pl,n,bl,arityc,body) poly r measure notation = let sigma, h_a_term = Evarutil.new_global sigma (delayed_force fix_sub_ref) in let sigma, h_e_term = Evarutil.new_evar env sigma ~src:(Loc.tag @@ Evar_kinds.QuestionMark { - Evar_kinds.qm_obligation=Evar_kinds.Define false; - Evar_kinds.qm_name=Anonymous; - Evar_kinds.qm_record_field=None; + Evar_kinds.default_question_mark with Evar_kinds.qm_obligation=Evar_kinds.Define false; }) wf_proof in sigma, mkApp (h_a_term, [| argtyp ; wf_rel ; h_e_term; prop |]) in |