128 lines
2.1 KiB
Text
128 lines
2.1 KiB
Text
set_option pp.analyze false
|
|
|
|
def p (x y : Nat) := x = y
|
|
|
|
example (x y : Nat) : p (x + y) (y + x + 0) := by
|
|
conv =>
|
|
whnf
|
|
congr
|
|
. skip
|
|
. whnf; skip
|
|
traceState
|
|
rw [Nat.add_comm]
|
|
rfl
|
|
|
|
example (x y : Nat) : p (x + y) (y + x + 0) := by
|
|
conv =>
|
|
whnf
|
|
rhs
|
|
whnf
|
|
traceState
|
|
rw [Nat.add_comm]
|
|
rfl
|
|
|
|
example (x y : Nat) : p (x + y) (y + x + 0) := by
|
|
conv =>
|
|
whnf
|
|
lhs
|
|
whnf
|
|
conv =>
|
|
rhs
|
|
whnf
|
|
traceState
|
|
apply Nat.add_comm x y
|
|
|
|
def f (x y z : Nat) : Nat :=
|
|
y
|
|
|
|
example (x y : Nat) : f x (x + y + 0) y = y + x := by
|
|
conv =>
|
|
lhs
|
|
arg 2
|
|
whnf
|
|
traceState
|
|
simp [f]
|
|
apply Nat.add_comm
|
|
|
|
example (x y : Nat) : f x (x + y + 0) y = y + x := by
|
|
conv =>
|
|
lhs
|
|
arg 2
|
|
change x + y
|
|
traceState
|
|
rw [Nat.add_comm]
|
|
|
|
example : id (fun x y => 0 + x + y) = Nat.add := by
|
|
conv =>
|
|
lhs
|
|
arg 1
|
|
ext a b
|
|
traceState
|
|
rw [Nat.zero_add]
|
|
traceState
|
|
|
|
example : id (fun x y => 0 + x + y) = Nat.add := by
|
|
conv =>
|
|
lhs
|
|
arg 1
|
|
intro a b
|
|
rw [Nat.zero_add]
|
|
|
|
example : id (fun x y => 0 + x + y) = Nat.add := by
|
|
conv =>
|
|
enter [1, 1, a, b]
|
|
traceState
|
|
rw [Nat.zero_add]
|
|
|
|
example (p : Nat → Prop) (h : ∀ a, p a) : ∀ a, p (id (0 + a)) := by
|
|
conv =>
|
|
intro x
|
|
traceState
|
|
arg 1
|
|
traceState
|
|
simp only [id]
|
|
traceState
|
|
rw [Nat.zero_add]
|
|
exact h
|
|
|
|
example (p : Prop) (x : Nat) : (x = x → p) → p := by
|
|
conv =>
|
|
congr
|
|
. traceState
|
|
congr
|
|
. simp
|
|
traceState
|
|
conv =>
|
|
lhs
|
|
simp
|
|
intros
|
|
assumption
|
|
|
|
example : (fun x => 0 + x) = id := by
|
|
conv =>
|
|
lhs
|
|
tactic => funext x
|
|
traceState
|
|
rw [Nat.zero_add]
|
|
|
|
example (p : Prop) (x : Nat) : (x = x → p) → p := by
|
|
conv =>
|
|
apply implies_congr
|
|
. apply implies_congr
|
|
simp
|
|
traceState
|
|
conv =>
|
|
lhs
|
|
simp
|
|
intros; assumption
|
|
|
|
example (x y : Nat) (f : Nat → Nat → Nat) (g : Nat → Nat) (h₁ : ∀ z, f z z = z) (h₂ : ∀ x y, f (g x) (g y) = y) : f (g (0 + y)) (f (g x) (g (0 + x))) = x := by
|
|
conv =>
|
|
pattern _ + _
|
|
apply Nat.zero_add
|
|
traceState
|
|
conv =>
|
|
pattern 0 + _
|
|
apply Nat.zero_add
|
|
traceState
|
|
simp [h₁, h₂]
|