diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-02-12 16:03:55 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-02-12 16:03:55 +0000 |
| commit | 1826065d7603d0993b78829856a5725f253c782d (patch) | |
| tree | 67f82826fee80d3124f8a2e670f3c75310d77ff6 /theories/FSets/FSetCompat.v | |
| parent | 08528250663d850bc56c48dfaab9f5d71e1e7dee (diff) | |
CompSpecType, a clone of CompSpec but in Type instead of Prop
In interfaces fields like compare_spec, a CompSpec is prefered to get
nice extraction, but then no "destruct (compare_spec .. ..)" is
possible in a Type context. Now you can say there
"destruct (CompSpec2Type (compare_spec ... ...))"
This translate to the Type variant, and make the analysis on it
(which is equivalent to analysing the comparison directly).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12753 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/FSets/FSetCompat.v')
| -rw-r--r-- | theories/FSets/FSetCompat.v | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/theories/FSets/FSetCompat.v b/theories/FSets/FSetCompat.v index 971daa215..439f0e528 100644 --- a/theories/FSets/FSetCompat.v +++ b/theories/FSets/FSetCompat.v @@ -209,10 +209,8 @@ Module Backport_Sets Qed. Definition compare : forall s s', Compare lt eq s s'. Proof. - intros s s'. - assert (H := M.compare_spec s s'). - destruct (M.compare s s'); [ apply EQ | apply LT | apply GT ]; - inversion H; auto. + intros s s'; destruct (CompSpec2Type (M.compare_spec s s')); + [ apply EQ | apply LT | apply GT ]; auto. Defined. End Backport_Sets. |