Section Steps_comp.
Variable (sig tau: finType) (X:Type) (cX: codable sig X).
Variable (I : Retract sig tau).

Lemma Constr_nil_SpecT_size (ss : Vector.t nat 1) :
TripleT
(≃≃(([], withSpace  [|Void |] ss))) Constr_nil_steps (Constr_nil X)
(fun _ => ≃≃(([], withSpace  [|Contains _ (@nil X) |] (appSize [|pred|] ss)))).