lean4-htt/tests/lean/delta.lean
Leonardo de Moura 04b7924154 chore: fix tests
2021-09-16 10:29:38 -07:00

23 lines
543 B
Text

def f (x : Nat) : Nat := x + 1
example (x y : Nat) (h : f x = 0) : False := by
delta f at h
trace_state
contradiction
example (x y : Nat) (h : f x = 0) : False := by
delta f -- Error
example (x y : Nat) (h1 : f x = 0) (h2 : 0 = 0) : False := by
delta f at h2 -- Error
example (x y : Nat) (h1 : f x = 0) (h2 : 0 = 0) : False := by
delta f at h1 h2 -- Error
example (x y : Nat) (h1 : f x = 0) (h2 : 0 = 0) : False := by
delta f at *
trace_state
contradiction
example (x y : Nat) (h2 : 0 = 0) : False := by
delta f at *