8 lines
306 B
Text
8 lines
306 B
Text
open tactic
|
|
|
|
#check (do { trace "foo", trace_state } : tactic unit)
|
|
axiom Sorry {A : Sort*} : A
|
|
#check
|
|
λ (A : Sort*) (a b c d : A) (H₁ : a = b) (H₂ : c = b) (H₃ : d = c),
|
|
have a = c, by do { trace "have-expr...", trace_state, transitivity, assumption, symmetry, assumption },
|
|
show a = d, from Sorry
|