Definition opt_typ_eq: forall (t1 t2: option typ), {t1=t2} + {t1<>t2}
                     := option_eq typ_eq.Definition list_typ_eq: forall (l1 l2: list typ), {l1=l2} + {l1<>l2}
                     := list_eq_dec typ_eq.Definition Tptr : typ := if Archi.ptr64 then Tlong else Tint.Definition typesize (ty: typ) : Z :=
  match ty with
  | Tint => 4
  | Tfloat => 8
  | Tlong => 8
  | Tsingle => 4
  | Tany32 => 4
  | Tany64 => 8
  end.

(* Specifications: *)
Lemma typesize_pos: forall ty, typesize ty > 0.
Lemma typesize_Tptr: typesize Tptr = if Archi.ptr64 then 8 else 4.
Lemma typesize_pos: forall ty, typesize ty > 0.
Lemma typesize_Tptr: typesize Tptr = if Archi.ptr64 then 8 else 4.