intro ⟨ 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₂
case mpr
α nt : Type
Z : Finset α
V : Finset nt
p₁ p₂ : GenericProduction Z V
h₁ : p₁.lhs = p₂.lhs
h₂ : p₁.rhs = p₂.rhs
⊢ p₁ = p₂