Section EncodingLemmas.
Variable (C: list X) (n: nat).
Hypothesis (O: ord' (map (ctype X) C) < n).

Lemma remove_constants_ordertyping Gamma s A:
Gamma ⊢(n) s : A ->
(forall x, x ∈ consts s -> R' x = None -> x ∈ C) ->
enc_ctx C Gamma ⊢(n) enc_term C s : enc_type C A.