15 lines
285 B
Text
15 lines
285 B
Text
|
import logic
|
||
|
|
open eq.ops
|
||
|
|
set_option pp.notation false
|
||
|
|
section
|
||
|
|
parameter {A : Type}
|
||
|
|
parameters {a b c d e : A}
|
||
|
|
theorem tst : a = b → b = c → c = d → d = e → a = e :=
|
||
|
|
take H1 H2 H3 H4,
|
||
|
|
have e1 : a = c,
|
||
|
|
proof
|
||
|
|
@eq.trans _ _ _ _ H1 H2
|
||
|
|
∎,
|
||
|
|
e1 ⬝ H3 ⬝ H4
|
||
|
|
end
|