fact: Definition TupleSigs' {n'} (HeadingTypes : Vector.t Type n') (HeadingNames : Vector.t string n') : Vector.t methSig (n' * 2) := Vector.rect2 (fun (n : nat) (_ : Vector.t Type n) (_ : Vector.t string n) => Vector.t methSig (n * 2)) (Vector.nil methSig) (fun (n : nat) (_ : Vector.t Type n) (_ : Vector.t string n) (TupleSigs' : Vector.t methSig (n * 2)) (aType : Type) (id : string) => Vector.cons methSig (GetTupleSig id aType) (S (n * 2)) (Vector.cons methSig (SetTupleSig id aType) (n * 2) TupleSigs')) HeadingTypes HeadingNames.
imports: Coq.Lists.List Coq.Strings.String Coq.Arith.Arith Coq.ZArith.ZArith Fiat.Common.ilist2 Fiat.Common.StringBound Fiat.ADT Fiat.ADT.ComputationalADT Fiat.ADTNotation Fiat.ADTRefinement Fiat.ADTRefinement.BuildADTRefinements Fiat.QueryStructure.Specification.Representation.Heading Fiat.QueryStructure.Specification.Representation.Tuple