intro _ ha h
case cons.refine_2
α : Type u
β : Type v
lb : List β
lb_nodup : Nodup lb
a : α
la : List α
la_nodup : Nodup (a :: la)
IH : Nodup (List.product la lb)
x : α × β
fst✝ : α
b : β
⊢ b ∈ lb → a = fst✝ → ¬(fst✝ ∈ la ∧ b ∈ lb)
case cons.refine_2
α : Type u
β : Type v
lb : List β
lb_nodup : Nodup lb
a : α
la : List α
la_nodup : Nodup (a :: la)
IH : Nodup (List.product la lb)
x : α × β
fst✝ : α
b : β
a✝ : b ∈ lb
ha : a = fst✝
h : fst✝ ∈ la ∧ b ∈ lb
⊢ False