fact: Definition internal_prod_dec_lb {A B} eq_A eq_B A_lb B_lb x y (H : x = y) : @prod_beq A B eq_A eq_B x y = true := @ImproperlyRecursiveProdBeq.internal_prod_dec_lb A B eq_A eq_B A_lb B_lb (fst x, snd x) (fst y, snd y) (eq_trans (eq_sym (surjective_pairing _)) (eq_trans H (surjective_pairing _))).
imports: Coq.Lists.List Coq.Lists.SetoidList Coq.Bool.Bool Coq.Arith.PeanoNat Coq.Strings.Ascii Coq.Strings.String Coq.Logic.Eqdep_dec Fiat.Common