original.elm

type alias Form = 
  { id : Id
  , sortKey : String  -- Distinct from name so that changing the name
                      -- doesn't cause list entries to change position
  , effectiveDate : DateHolder
  , intendedVersion : Int
  , species : Namelike
  , name : Css.FormValue Namelike
  , tags : List Namelike
  , tentativeTag : String
  , properties : Properties
  , status : Css.FormStatus
  , originalAnimal : Animal  --- <<<<<<<<<<<<<<<<<<<
  }