fact: Definition prod_beq {A B} eq_A eq_B (x y : A * B) : bool := Eval unfold ImproperlyRecursiveProdBeq.prod_beq in @ImproperlyRecursiveProdBeq.prod_beq A B eq_A eq_B (fst x, snd x) (fst y, snd y).
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