fact: Fixpoint list_bin (ls : list A) : bool := match ls with | nil => false | x::xs => orb (list_bin xs) (eq_A x a) end.
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