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

Lemma Constr_Some_SpecT_size (x : X) (ss : Vector.t nat 1) :
TripleT
(≃≃(([], withSpace  [|Contains _ x |] ss))) Constr_Some_steps (Constr_Some sigX)
(fun _ => ≃≃(([], withSpace  [|Contains _ (Some x)|] (appSize [|pred|] ss)))).