diff options
| author | msozeau | 2008-03-16 17:48:43 +0000 |
|---|---|---|
| committer | msozeau | 2008-03-16 17:48:43 +0000 |
| commit | 9e1ab25ce311b5c0e18e1023eaaa38673a38d3d5 (patch) | |
| tree | f2e3031b3cf4a0e8d3fee15d83467ecc663b2942 /theories/Program | |
| parent | 87017bcc49f0d9d07f8f8c6a8c0137715118ef46 (diff) | |
Removed unneeded tactics from RelationClasses. Use
check_required_library where needed (fixes bug #1797).
Remove spurious messages from ring when not in verbose mode.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10685 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Program')
| -rw-r--r-- | theories/Program/Subset.v | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/theories/Program/Subset.v b/theories/Program/Subset.v index c414dc9cd6..b6fc156c39 100644 --- a/theories/Program/Subset.v +++ b/theories/Program/Subset.v @@ -88,7 +88,7 @@ Qed. (* Somewhat trivial definition, but not unfolded automatically hence we can match on [match_eq ?A ?B ?x ?f] in tactics. *) -Program Definition match_eq (A B : Type) (x : A) (fn : forall (y : A | y = x), B) : B := +Definition match_eq (A B : Type) (x : A) (fn : forall (y : A | y = x), B) : B := fn (exist _ x (refl_equal x)). (* This is what we want to be able to do: replace the originaly matched object by a new, @@ -122,4 +122,3 @@ Ltac rewrite_match_eq H := (** Otherwise we can simply unfold [match_eq] and the term trivially reduces to the original definition. *) Ltac simpl_match_eq := unfold match_eq ; simpl. - |