How to get the dafny's sub-type in the datatype

Question

I have pre-define the type of code like this：type role = string datatype message = Nil | Aenc(aencMsg:message,aencKey:message) | Senc(m1:message,m2:message) | K(r1:rol