Definition typesize (ty: typ) : Z :=
  match ty with
  | Tint => 1
  | Tlong => 2
  | Tfloat => 2
  | Tsingle => 1
  | Tany32 => 1
  | Tany64 => 2
  end.

(* Specifications: *)
Lemma typesize_pos: forall (ty: typ), typesize ty > 0.