Section GET_CO.
Context {cs: compspecs}.
Open Scope Z.
Definition co_default (s: struct_or_union): composite.
apply (Build_composite s nil noattr 0 1 0).
+ intro. inv H.
+ exists 0%nat; auto.
+ exists 0; auto.
Defined.
Definition get_co id :=
match cenv_cs ! id with
| Some co => co
| _ => co_default Struct
end.

Lemma co_default_consistent: forall su, composite_consistent cenv_cs (co_default su).