fact: Definition AddContact (num : nat) (name : string) (r : ComputationalADT.cRep MessagesImpl) : ComputationalADT.cRep MessagesImpl * bool := Eval simpl in CallMethod MessagesImpl AddContactS r {| prim_fst := num; prim_snd := {| prim_fst := name; prim_snd := tt |} |}.
imports: Coq.Bool.Bool Coq.Strings.String Fiat.Common.String_as_OT Coq.Structures.OrderedTypeEx Coq.extraction.ExtrOcamlBasic Coq.extraction.ExtrOcamlNatInt Coq.extraction.ExtrOcamlZInt Coq.extraction.ExtrOcamlString Fiat.QueryStructure.Automation.MasterPlan Fiat.Examples.QueryStructure.Messages