diff options
| author | Emilio Jesus Gallego Arias | 2019-12-10 17:30:49 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-12-10 17:30:49 +0100 |
| commit | 79f9e907fa4cc0e8862c4b678d60d8409a6cc88e (patch) | |
| tree | 1e2c7b9df5a3bea410d784e9c6d9d9981372c486 /vernac/comProgramFixpoint.ml | |
| parent | 0fa2d49c6fe110a61811c8305c735342dc717213 (diff) | |
| parent | 19b1345540fcd577fa0322791cd25a8e36b5c71f (diff) | |
Merge PR #10202: Slightly more robust manual implicit arguments
Reviewed-by: ejgallego
Diffstat (limited to 'vernac/comProgramFixpoint.ml')
| -rw-r--r-- | vernac/comProgramFixpoint.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/comProgramFixpoint.ml b/vernac/comProgramFixpoint.ml index 0e17f2b274..d48e2139d1 100644 --- a/vernac/comProgramFixpoint.ml +++ b/vernac/comProgramFixpoint.ml @@ -200,7 +200,7 @@ let build_wellfounded (recname,pl,bl,arityc,body) poly r measure notation = Constrintern.Recursive full_arity impls in let newimpls = Id.Map.singleton recname - (r, l, impls @ [(Some (Id.of_string "recproof", Impargs.Manual, (true, false)))], + (r, l, impls @ [Some (ExplByName (Id.of_string "recproof"), Impargs.Manual, (true, false))], scopes @ [None]) in interp_casted_constr_evars ~program_mode:true (push_rel_context ctx env) sigma ~impls:newimpls body (lift 1 top_arity) |