fact: Definition QSMutate qs_schema (qs : QueryStructure qs_schema) Ridx MutatedTuples := (qs' <- Pick (QSMutateSpec qs Ridx MutatedTuples); mutated <- Pick (UnIndexedEnsembleListEquivalence (Intersection _ (GetRelation qs Ridx) (Complement _ (GetRelation qs' Ridx)))); ret (qs', mutated))%comp.
imports: Coq.Lists.List Coq.Strings.String Coq.Sets.Ensembles Coq.Arith.Arith Fiat.Computation.Core Fiat.ADT.ADTSig Fiat.ADT.Core Fiat.Common.ilist Fiat.Common.StringBound Fiat.Common.Ensembles.IndexedEnsembles Fiat.ADTNotation.BuildADT Fiat.ADTNotation.BuildADTSig Fiat.QueryStructure.Specification.Representation.QueryStructureSchema Fiat.QueryStructure.Specification.Representation.QueryStructure