diff options
| author | Gaëtan Gilbert | 2020-10-02 13:17:26 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-10-06 14:05:10 +0200 |
| commit | ee926704e6f8b14efe5c7daeaf56506cba73b9b9 (patch) | |
| tree | 56fcb88b9b25d238adec8b35cd6aa3a4bdfa4c8e /vernac/vernacentries.ml | |
| parent | 6d3a9220204de22e0b81dc961d2eb269128b5c2e (diff) | |
Define a new type instance_flag instead of using [unit option]
Diffstat (limited to 'vernac/vernacentries.ml')
| -rw-r--r-- | vernac/vernacentries.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/vernacentries.ml b/vernac/vernacentries.ml index 60c6d2ec0b..fe27d9ac8a 100644 --- a/vernac/vernacentries.ml +++ b/vernac/vernacentries.ml @@ -776,7 +776,7 @@ let vernac_inductive ~atts kind indl = | _ -> CErrors.user_err Pp.(str "Definitional classes do not support the \"|\" syntax.") in let (coe, (lid, ce)) = l in - let coe' = if coe then Some () else None in + let coe' = if coe then BackInstance else NoInstance in let f = AssumExpr ((make ?loc:lid.loc @@ Name lid.v), ce), { rf_subclass = coe' ; rf_priority = None ; rf_notation = [] ; rf_canonical = true } in vernac_record ~template udecl ~cumulative (Class true) ~poly finite [id, bl, c, None, [f]] |