diff options
| author | Enrico Tassi | 2019-01-29 16:22:41 +0100 |
|---|---|---|
| committer | Enrico Tassi | 2019-01-29 16:22:41 +0100 |
| commit | 325c4ae65f5c72c531a18b1d3871c840a2f32980 (patch) | |
| tree | 0783ae991ce01a9d9b7ffbc520bba0d1ca8502db /vernac/classes.ml | |
| parent | a9b141469fe3036355be95d8cf5f0bf5c240fe37 (diff) | |
| parent | 309cf3d3d6fe57ba9c15c32872b42433596c7748 (diff) | |
Merge PR #9274: Make `Instance` without a body always open a proof
Reviewed-by: gares
Reviewed-by: mattam82
Reviewed-by: ppedrot
Diffstat (limited to 'vernac/classes.ml')
| -rw-r--r-- | vernac/classes.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vernac/classes.ml b/vernac/classes.ml index 748a2628c5..5cac6af4b2 100644 --- a/vernac/classes.ml +++ b/vernac/classes.ml @@ -269,9 +269,9 @@ let do_instance env env' sigma ?hook ~refine ~tac ~global ~poly ~program_mode ct Pretyping.check_evars env (Evd.from_env env) sigma termtype; let termtype = to_constr sigma termtype in let term = Option.map (to_constr ~abort_on_undefined_evars:false sigma) term in - if not (Evd.has_undefined sigma) && not (Option.is_empty term) then + if not (Evd.has_undefined sigma) && not (Option.is_empty props) then declare_instance_constant k pri global imps ?hook id decl poly sigma (Option.get term) termtype - else if program_mode || refine || Option.is_empty term then + else if program_mode || refine || Option.is_empty props then declare_instance_open env sigma ?hook ~tac ~program_mode ~global ~poly k id pri imps decl (List.map RelDecl.get_name ctx) term termtype else CErrors.user_err Pp.(str "Unsolved obligations remaining."); id |