fact: Definition AddEvent (name : string) (date : nat) (r : ComputationalADT.cRep AlbumImpl) : ComputationalADT.cRep AlbumImpl * bool := Eval simpl in CallMethod AlbumImpl AddEventS r {| prim_fst := name; prim_snd := {| prim_fst := date; 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.PhotoalbumUnOpt