anchor.diff:      Name: string
       Email: EmailAdress
       Password: string
  +    CreationTime: Instant
   }
  +
  +(* End domain model types *)
   
   type State = Dictionary<string, User>
   
  -//Commands
  +(* Commands *)
   
   type Command =
       | CreateUser of CreateUser
       | ChangeName of ChangeName
   
   and CreateUser = {
  -    Id: Guid
       Name: string
       Email: string
       Password: string
  
positive.code:     Id: Guid
  }
  
  //Events
  
  type Event =
      | UserCreated of UserCreated
  
negative.code: ﻿module Jim.Domain
  
  open NodaTime
  
  open System
  open System.Collections.Generic
  open System.Text.RegularExpressions
  
  (* Domain model types *)
  
  type EmailAdress = 
      | Unverified of string
  