lean2/tests/lean/run/rel.lean

import logic struc.relation
open relation

namespace is_equivalence
  inductive cls {T : Type} (R : T → T → Type) : Prop :=
  mk : is_reflexive R → is_symmetric R → is_transitive R → cls R

  theorem is_reflexive {T : Type} {R : T → T → Type} {C : cls R} : is_reflexive R :=
  cls.rec (λx y z, x) C

  theorem is_symmetric {T : Type} {R : T → T → Type} {C : cls R} : is_symmetric R :=
  cls.rec (λx y z, y) C

  theorem is_transitive {T : Type} {R : T → T → Type} {C : cls R} : is_transitive R :=
  cls.rec (λx y z, z) C

end is_equivalence

instance is_equivalence.is_reflexive
instance is_equivalence.is_symmetric
instance is_equivalence.is_transitive

theorem and_inhabited_left {a : Prop} (b : Prop) (Ha : a) : a ∧ b ↔ b :=
iff.intro (take Hab, and.elim_right Hab) (take Hb, and.intro Ha Hb)

theorem test (a b c : Prop) (P : Prop → Prop) (H1 : a ↔ b) (H2 : c ∧ a) : c ∧ b :=
iff.subst H1 H2

theorem test2 (Q R S : Prop) (H3 : R ↔ Q) (H1 : S) : Q ↔ (S ∧ Q) :=
iff.symm (and_inhabited_left Q H1)

theorem test3 (Q R S : Prop) (H3 : R ↔ Q) (H1 : S) : R ↔ (S ∧ Q) :=
iff.subst (test2 Q R S H3 H1) H3

theorem test4 (Q R S : Prop) (H3 : R ↔ Q) (H1 : S) : R ↔ (S ∧ Q) :=
iff.subst (iff.symm (and_inhabited_left Q H1)) H3