fact: Definition AddPhoto (data : list ascii) (persons : list string) (event : string) (r : ComputationalADT.cRep AlbumImpl) : ComputationalADT.cRep AlbumImpl * bool := Eval simpl in CallMethod AlbumImpl AddPhotoS r {|prim_fst := data; prim_snd := {| prim_fst := persons; prim_snd := {| prim_fst := event; 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