diff options
| author | Gaëtan Gilbert | 2020-07-09 11:32:41 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-07-09 11:32:41 +0200 |
| commit | 577ec77f17a872d6bc36073ceeb3cf582fcf01c4 (patch) | |
| tree | 93729a8f221b9d47269279c3672afc2b6854e1ba /vernac/comDefinition.ml | |
| parent | 769823c425f1b3ffc87141ede814976f6cf44128 (diff) | |
| parent | 3ef2bd35926a83fbcfd34d03e1fb1db894a39627 (diff) | |
Merge PR #11836: [obligations] Functionalize Program state
Reviewed-by: SkySkimmer
Ack-by: gares
Diffstat (limited to 'vernac/comDefinition.ml')
| -rw-r--r-- | vernac/comDefinition.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/vernac/comDefinition.ml b/vernac/comDefinition.ml index 5ee847a17e..37b7106856 100644 --- a/vernac/comDefinition.ml +++ b/vernac/comDefinition.ml @@ -125,14 +125,14 @@ let do_definition ?hook ~name ~scope ~poly ~kind udecl bl red_option c ctypopt = Declare.declare_definition ~info ~cinfo ~opaque:false ~body evd in () -let do_definition_program ?hook ~name ~scope ~poly ~kind udecl bl red_option c ctypopt = +let do_definition_program ?hook ~pm ~name ~scope ~poly ~kind udecl bl red_option c ctypopt = let program_mode = true in let (body, types), evd, udecl, impargs = interp_definition ~program_mode udecl bl ~poly red_option c ctypopt in let term, typ, uctx, obls = Declare.Obls.prepare_obligation ~name ~body ~types evd in - let _ : Declare.Obls.progress = + let pm, _ = let cinfo = Declare.CInfo.make ~name ~typ ~impargs () in let info = Declare.Info.make ~udecl ~scope ~poly ~kind ?hook () in - Declare.Obls.add_definition ~cinfo ~info ~term ~uctx obls - in () + Declare.Obls.add_definition ~pm ~cinfo ~info ~term ~uctx obls + in pm |