fact: Fixpoint tupleAgree_computational' {h} (tup1 tup2 : @RawTuple h) (attrlist : list (Attributes h)) {struct attrlist} := match attrlist with | nil => True | cons attr nil => GetAttributeRaw tup1 attr = GetAttributeRaw tup2 attr | attr :: more => GetAttributeRaw tup1 attr = GetAttributeRaw tup2 attr /\ tupleAgree_computational' tup1 tup2 more end.
imports: Coq.Lists.List Fiat.QueryStructure.Specification.Representation.Heading Fiat.QueryStructure.Specification.Representation.Tuple Fiat.QueryStructure.Specification.Representation.QueryStructure