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

(* Specifications: *)
Lemma typealign_pos: forall (ty: typ), typealign ty > 0.