diff options
author | 2010-06-08 13:56:14 +0000 | |
---|---|---|
committer | 2010-06-08 13:56:14 +0000 | |
commit | d14635b0c74012e464aad9e77aeeffda0f1ef154 (patch) | |
tree | bb913fa1399a1d4c7cdbd403e10c4efcc58fcdb1 /theories/Classes/RelationPairs.v | |
parent | f4c5934181c3e036cb77897ad8c8a192c999f6ad (diff) |
Made option "Automatic Introduction" active by default before too many
people use the undocumented "Lemma foo x : t" feature in a way
incompatible with this activation.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13090 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Classes/RelationPairs.v')
-rw-r--r-- | theories/Classes/RelationPairs.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/Classes/RelationPairs.v b/theories/Classes/RelationPairs.v index fd01495c4..7972c96ca 100644 --- a/theories/Classes/RelationPairs.v +++ b/theories/Classes/RelationPairs.v @@ -134,13 +134,13 @@ Proof. firstorder. Qed. Instance fst_compat { A B } (RA:relation A)(RB:relation B) : Proper (RA*RB ==> RA) Fst. Proof. -intros A B RA RB (x,y) (x',y') (Hx,Hy); compute in *; auto. +intros (x,y) (x',y') (Hx,Hy); compute in *; auto. Qed. Instance snd_compat { A B } (RA:relation A)(RB:relation B) : Proper (RA*RB ==> RB) Snd. Proof. -intros A B RA RB (x,y) (x',y') (Hx,Hy); compute in *; auto. +intros (x,y) (x',y') (Hx,Hy); compute in *; auto. Qed. Instance RelCompFun_compat {A B}(f:A->B)(R : relation B) |