7 lines
166 B
Text
7 lines
166 B
Text
import logic
|
|
open tactic
|
|
|
|
definition assump := eassumption
|
|
|
|
theorem tst {A : Type} {a b c : A} (H1 : a = b) (H2 : b = c) : a = c
|
|
:= by apply eq.trans; assump; assump
|