Section CaseFin.
Variable sig : finType.
Hypothesis defSig : inhabitedC sig.
(* A non-standard encoding! *)
Local Existing Instance Encode_Finite.
Definition CaseFin_size : Vector.t (nat->nat) 1 := [|S>>S|].

Lemma CaseFin_SpecT_size (x : sig) (ss : Vector.t nat 1) :
TripleT (≃≃(([], withSpace  [|Contains _ x |] ss)))
(CaseFin_steps) (CaseFin sig)
(fun yout => ≃≃([yout = x], withSpace  [|Void|] (appSize CaseFin_size ss))).