diff options
author | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-01-18 19:41:43 +0000 |
---|---|---|
committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-01-18 19:41:43 +0000 |
commit | c2e3d63ca60b27abb5398ecbc8ebcaf8fb925206 (patch) | |
tree | f0a1603b98484520e841283140817bc783d86a37 /theories/Classes/SetoidDec.v | |
parent | f57b2e6cf26316ec7df340ab95399039dae5143e (diff) |
Fix bug #1778, better typeclass error messages. Move Obligations Tactic to a wrapper around Ltac program_simpl ::= .
!!!! This may introduce incompatibilities because now modifications of program_simpl are properly handled and work across modules.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10454 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Classes/SetoidDec.v')
-rw-r--r-- | theories/Classes/SetoidDec.v | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/theories/Classes/SetoidDec.v b/theories/Classes/SetoidDec.v index d20b3df55..3b4d90a5c 100644 --- a/theories/Classes/SetoidDec.v +++ b/theories/Classes/SetoidDec.v @@ -106,18 +106,12 @@ Program Instance [ EqDec A eq ] => bool_function_eqdec : EqDec (bool -> A) eq := else right else right. - Solve Obligations using unfold equiv ; program_simpl. + Solve Obligations using try red ; unfold equiv ; program_simpl. Next Obligation. Proof. - unfold equiv. + red. extensionality x. destruct x ; auto. Qed. - - Next Obligation. - Proof. - unfold equiv in *. - red ; intro ; subst. - discriminates. - Qed. + |