let rec get_enum_value s1 s2 env = 
  match env with 
      (TyEnumDef (s,lst))::rest when (s = s1) -> indexof s2 lst 0
    | _::rest -> get_enum_value s1 s2 rest
    | [] -> raise Not_found