7 lines
259 B
Text
7 lines
259 B
Text
open tactic
|
||
|
||
example {α : Type} (f : α → α → α) (a b : α) (H₁ : a = b) (H₂ : f b a = a) :
|
||
let c := a in f c c = c :=
|
||
by do dsimp_target,
|
||
e ← get_local `H₁, rewrite_target e {occs := occurrences.pos [1]},
|
||
get_local `H₂ >>= exact
|