diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-03-15 16:58:50 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-03-15 16:58:50 +0000 |
| commit | a96b65816bdbbd7b253ccc0920803d7a1da0ae75 (patch) | |
| tree | 8042e53a0f76d81f9c4245401ee1363c9e9c69e0 /test-suite/success/setoid_test.v | |
| parent | c09f4b75c1c924098cafe7ef23cdb7871a56692d (diff) | |
Test de non-régression pour commit 9673
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9709 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/success/setoid_test.v')
| -rw-r--r-- | test-suite/success/setoid_test.v | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test-suite/success/setoid_test.v b/test-suite/success/setoid_test.v index dd1022f08..e99b3c19b 100644 --- a/test-suite/success/setoid_test.v +++ b/test-suite/success/setoid_test.v @@ -104,3 +104,15 @@ setoid_rewrite <- H. trivial. Qed. +(* Unifying the domain up to delta-conversion (example from emakarov) *) + +Definition id: Set -> Set := fun A => A. +Definition rel : forall A : Set, relation (id A) := @eq. +Definition f: forall A : Set, A -> A := fun A x => x. + +Add Relation id rel as eq_rel. + +Add Morphism f with signature rel ++> rel as f_morph. +Proof. +unfold rel, f. trivial. +Qed. |