Definition build_composite_env (defs: list composite_definition) :=
  add_composite_definitions (PTree.empty _) defs.

(* Specifications: *)
Lemma alignof_stable: forall t, complete_type env t = true -> alignof env' t = alignof env t.
Lemma sizeof_stable: forall t, complete_type env t = true -> sizeof env' t = sizeof env t.
Lemma complete_type_stable: forall t, complete_type env t = true -> complete_type env' t = true.
Lemma rank_type_stable: forall t, complete_type env t = true -> rank_type env' t = rank_type env t.
Lemma alignof_composite_stable: forall m, complete_members env m = true -> alignof_composite env' m = alignof_composite env m.
Lemma sizeof_struct_stable: forall m pos, complete_members env m = true -> sizeof_struct env' pos m = sizeof_struct env pos m.
Lemma sizeof_union_stable: forall m, complete_members env m = true -> sizeof_union env' m = sizeof_union env m.
Lemma sizeof_composite_stable: forall su m, complete_members env m = true -> sizeof_composite env' su m = sizeof_composite env su m.
Lemma complete_members_stable: forall m, complete_members env m = true -> complete_members env' m = true.
Lemma rank_members_stable: forall m, complete_members env m = true -> rank_members env' m = rank_members env m.
Lemma alignof_stable: forall t, complete_type env t = true -> alignof env' t = alignof env t.
Lemma sizeof_stable: forall t, complete_type env t = true -> sizeof env' t = sizeof env t.
Lemma complete_type_stable: forall t, complete_type env t = true -> complete_type env' t = true.
Lemma rank_type_stable: forall t, complete_type env t = true -> rank_type env' t = rank_type env t.
Lemma alignof_composite_stable: forall m, complete_members env m = true -> alignof_composite env' m = alignof_composite env m.
Lemma sizeof_struct_stable: forall m pos, complete_members env m = true -> sizeof_struct env' pos m = sizeof_struct env pos m.
Lemma sizeof_union_stable: forall m, complete_members env m = true -> sizeof_union env' m = sizeof_union env m.
Lemma sizeof_composite_stable: forall su m, complete_members env m = true -> sizeof_composite env' su m = sizeof_composite env su m.
Lemma complete_members_stable: forall m, complete_members env m = true -> complete_members env' m = true.
Lemma rank_members_stable: forall m, complete_members env m = true -> rank_members env' m = rank_members env m.