lean2/tests/lean/simplifier10.lean

20 lines
503 B
Text
Raw Normal View History

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