fact: Fixpoint ForallT_code A P ls {struct ls} : @ForallT A P ls -> @ForallT A P ls -> Prop := match ls return @ForallT A P ls -> @ForallT A P ls -> Prop with | nil => fun _ _ => True | x::xs => fun H H' => fst H = fst H' /\ @ForallT_code A P xs (snd H) (snd H') end.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.ZArith.ZArith Coq.Lists.List Coq.Lists.SetoidList Coq.Bool.Bool Fiat.Common Fiat.Common.List.Operations Fiat.Common.Equality Fiat.Common.List.FlattenList Fiat.Common.LogicFacts