Section WriteValue.
Variable (sig: finType) (X: Type) (cX: codable sig X).
Definition WriteValue_sizefun (x : X) : Vector.t (nat->nat) 1 := [| WriteValue_size x |].

Lemma WriteValue_SpecT_size (x : X) (ss : Vector.t nat 1) :
TripleT (≃≃(([], withSpace  [|Void |] ss)))
(WriteValue_steps (size x)) (WriteValue x)
(fun _ => ≃≃(([], withSpace  [|Contains _ x|] (appSize (WriteValue_sizefun x) ss)))).