. intro ⟨ h₁, h₂ ⟩
  match p₁ with
  | ⟨ l, r, _ ⟩ => simp at h₁; simp at h₂; simp_rw [h₁, h₂]
case mpr
α nt : Type
Z : Finset α
V : Finset nt
p₁ p₂ : GenericProduction Z V
⊢ p₁.lhs = p₂.lhs ∧ p₁.rhs = p₂.rhs → p₁ = p₂
no goals