fact: Fixpoint tupleAgree_computational' {h} (tup1 tup2 : @RawTuple h) (attrlist : list (Attributes h)) {struct attrlist} := match attrlist with | [] => True | [attr] => GetAttributeRaw tup1 attr = GetAttributeRaw tup2 attr | attr :: more => GetAttributeRaw tup1 attr = GetAttributeRaw tup2 attr /\ tupleAgree_computational' tup1 tup2 more end.
imports: Fiat.QueryStructure.Automation.AutoDB