From 83afcfd21be0084b2eff33ffd9e2d8b785679d4a Mon Sep 17 00:00:00 2001 From: Siddharth Bhat Date: Tue, 17 Jul 2018 01:14:36 +0200 Subject: change into QuestionMark default --- vernac/comProgramFixpoint.ml | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'vernac') 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 -- cgit v1.2.3