TimeUnit isA DataType end
Time in TimeUnit isA Value end

BlueDim in Dimension with
  dimcolor col: "0,0,210"
end


"15 h" in Time end

Element ActivityType with
  attribute
   duration_2: Time
  potency
    BlueDim: 2
end

Element DesignCode in ActivityType with
  attribute
    duration_1: Time
  potency
    BlueDim: 1
end

DesignCode->ActivityType with
  dimension dim: BlueDim
end

Element SusanDesignsApp in DesignCode isA ActivityType with
  duration_1 time: "15 h"
end

SusanDesignsApp->DesignCode 
with
  dimension dim: BlueDim
end


SusanDesignsApp=>ActivityType 
with
  dimension dim: BlueDim
end