Section CaseSum.
Variable (X Y : Type) (sigX sigY : finType) (codX : codable sigX X) (codY : codable sigY Y).

Lemma Constr_inr_SpecT_size (y : Y) (ss : Vector.t nat 1) :
TripleT
(≃≃(([], withSpace  [|Contains _ y |] ss))) Constr_inr_steps (Constr_inr sigX sigY)
(fun _ => ≃≃(([], withSpace  [|Contains _ (inr (A:=X) y)|] (appSize [|pred|] ss)))).