11 lines
392 B
Text
11 lines
392 B
Text
open tactic
|
|
|
|
attribute [congr, priority std.priority.default+1]
|
|
theorem forall_congr_prop_eq {P₁ P₂ Q₁ Q₂ : Prop} :
|
|
P₁ = P₂ → (P₂ → Q₁ = Q₂) → (P₁ → Q₁) = (P₂ → Q₂) :=
|
|
sorry
|
|
|
|
print [congr] default
|
|
|
|
example (A : Type) (a b c : A) : (a = b) → (a = c) → a = b := by ctx_simp
|
|
example (A : Type) (a b c : A) : (a = c) → (a = b) → a = b := by ctx_simp
|