fact: Definition EESpec : ADT _ := Def ADT { rep := QueryStructure EESchema, Def Constructor "Init" : rep := empty,, Def Method1 "AddData" (this : rep) (t : _) : rep * bool := Insert t into this!"foo", Def Method1 "Process" (this : rep) (p : EnumID) : rep * list _ := results <- For (r in this!"foo") Where ( (SumType_index _ r!"B") = p) Return r; ret (this, results)}.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.Vectors.Vector Coq.Strings.Ascii Coq.Bool.Bool Coq.Lists.List Fiat.Common.SumType Fiat.Computation.ListComputations Fiat.QueryStructure.Automation.AutoDB Bedrock.Word Bedrock.Memory