refine Nodup.append ?_ IH ?_
case cons
α : Type u
β : Type v
lb : List β
lb_nodup : Nodup lb
a : α
la : List α
la_nodup : Nodup (a :: la)
IH : Nodup (List.product la lb)
⊢ Nodup (List.map (Prod.mk a) lb ++ List.product la lb)
case cons.refine_1
α : Type u
β : Type v
lb : List β
lb_nodup : Nodup lb
a : α
la : List α
la_nodup : Nodup (a :: la)
IH : Nodup (List.product la lb)
⊢ Nodup (List.map (Prod.mk a) 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)
⊢ ∀ (a_1 : α × β), a_1 ∈ List.map (Prod.mk a) lb → ¬a_1 ∈ List.product la lb