Section CaseOpton.
Variable (X : Type) (sigX : finType) (codX : codable sigX X).

Lemma Constr_None_SpecT_size (ss : Vector.t nat 1) :
TripleT
(≃≃(([], withSpace  [|Void |] ss))) Constr_None_steps (Constr_None X)
(fun _ => ≃≃(([], withSpace  [|Contains _ (None (A:=X))|] (appSize [|pred|] ss)))).