lean2/tests/lean/simplifier7.lean

17 lines
457 B
Text
Raw Normal View History

-- Simplifying the operator with a user-defined congruence
import logic.connectives
constants (P1 Q1 P2 Q2 P3 Q3 : Prop) (H1 : P1 ↔ Q1) (H2 : P2 ↔ Q2) (H3 : P3 ↔ Q3)
constants (f g : Prop → Prop → Prop)
constants (Hf : and = f) (Hg : f = g)
namespace tst
attribute H1 [simp]
attribute H2 [simp]
attribute H3 [simp]
attribute Hf [simp]
attribute Hg [simp]
end tst
#simplify iff tst 2 (and P1 (and P2 P3))
#simplify iff tst 2 (and P1 (iff P2 P3))