/- Basic pi congruence -/
import logic.connectives logic.quantifiers

namespace pi_congr1
constants (p1 q1 p2 q2 p3 q3 : Prop) (H1 : p1 ↔ q1) (H2 : p2 ↔ q2) (H3 : p3 ↔ q3)

attribute forall_congr [congr]
attribute imp_congr    [congr]
attribute H1 [simp]
attribute H2 [simp]
attribute H3 [simp]

#simplify iff env 1 p1 -- Broken?
#simplify iff env 1 p1 →  p2
#simplify iff env 1 p1 →  p2 → p3

end pi_congr1

namespace pi_congr2
universe l
constants (T : Type.{l}) (P Q : T → Prop) (H : ∀ (x : T), P x ↔ Q x)
attribute forall_congr [congr]
attribute H [simp]

constant (x : T)

#simplify iff env 1 (∀ (x : T), P x)


end pi_congr2