diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-06-16 13:45:44 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-06-16 13:45:44 +0000 |
| commit | 8ee03c1561cd622e98dfa2669cb8e94a53c859c7 (patch) | |
| tree | 62d147ecef8bf862e88f05cd92faeb0f4e689a81 /theories/MSets/MSetInterface.v | |
| parent | 570668efcd61800a5de13d33ab4f2fefc78cc62c (diff) | |
MSetInterface: no induction principle about a Record (nicer extraction)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13159 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/MSets/MSetInterface.v')
| -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 7dc3c96a8..6de91dacc 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}. |