diff options
| -rw-r--r-- | theories/MSets/MSetInterface.v | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/theories/MSets/MSetInterface.v b/theories/MSets/MSetInterface.v index 7dc3c96a86..6de91daccf 100644 --- a/theories/MSets/MSetInterface.v +++ b/theories/MSets/MSetInterface.v @@ -429,6 +429,10 @@ End WRawSets. Module WRaw2SetsOn (E:DecidableType)(M:WRawSets E) <: WSetsOn E. + (** We avoid creating induction principles for the Record *) + Local Unset Elimination Schemes. + Local Unset Case Analysis Schemes. + Definition elt := E.t. Record t_ := Mkt {this :> M.t; is_ok : M.Ok this}. |