Section DowncastLemmas.
Implicit Types (s t: exp X) (Gamma: ctx)  (A: type).
Variable (n: nat).
Hypothesis (Leq: 1 <= n).

Lemma downcast_variables Gamma s t Delta sigma:
Delta ⊩ sigma : Gamma -> sigma • s ≡ sigma • t ->
exists Sigma tau, Sigma ⊩ tau : Gamma /\ tau • s ≡ tau • t /\ ord' Sigma <= 1.