Section Backward.
Variable (X: Const).
Implicit Types (sigma: nat -> exp X) (x y z c n: nat).
Definition sub_sol sigma x :=
match dec_enc (sigma x) with
| inl (exist _ k _) => k
| inr _ => 0
end.

Lemma DWK_H10 E: SOU X 3 (H10_to_DWK X E) -> H10 E.