blob: e234630332eab1baa76d0bb0d805b606195efaa9 (
plain)
1
2
3
4
5
6
7
8
9
10
|
Require Import Setoid.
Parameter value' : Type.
Parameter equiv' : value' -> value' -> Prop.
Axiom cheat : forall {A}, A.
Add Parametric Relation : _ equiv'
reflexivity proved by (Equivalence.equiv_reflexive cheat)
transitivity proved by (Equivalence.equiv_transitive cheat)
as apply_equiv'_rel.
Check apply_equiv'_rel : PreOrder equiv'.
|