0b84c3912e
This PR fixes the nested proof term detection in `grind`. It must check whether the gadget `Grind.nestedProof` is over-applied. closes #10327
5 lines
241 B
Text
5 lines
241 B
Text
open Option
|
||
|
||
theorem join_pmap_eq_pmap_join {p : α → Prop} {f : ∀ a, p a → β} {x : Option (Option α)} (H) :
|
||
(pmap (pmap f) x H).join = pmap f x.join fun a h ↦ H (some a) (mem_of_mem_join h) _ rfl := by
|
||
grind [cases Option]
|