20 lines
503 B
Text
20 lines
503 B
Text
|
import logic.connectives logic.quantifiers
|
||
|
|
|
||
|
|
universe l
|
||
|
|
constants (T : Type.{l}) (x y z : T) (P : T → Prop) (Q : T → T → T → Prop) (R W V : T → T → Prop)
|
||
|
|
constants (px : P x) (wxz : W x z) (vzy : V z y)
|
||
|
|
constants (H : ∀ (x y z : T), P x → W x z → V z y → (Q z y x ↔ R x y))
|
||
|
|
attribute px [simp]
|
||
|
|
attribute wxz [simp]
|
||
|
|
attribute vzy [simp]
|
||
|
|
attribute H [simp]
|
||
|
|
|
||
|
|
#simplify iff 0 P x
|
||
|
|
#simplify iff 0 W x z
|
||
|
|
#simplify iff 0 V z y
|
||
|
|
#simplify iff 0 Q z y x
|
||
|
|
#simplify iff 0 V z y ↔ Q z y x
|
||
|
|
|
||
|
|
|
||
|
|
|