fact: Definition setTag (r : Result) (t' : string) : Result := match r with | MkResult o e r i s cs _ => MkResult o e r i s cs (Some t') end.
imports: String List RoseTrees Show State Producer Generators Classes DependentClasses