Section InverseTransport.

Lemma encodes_nat_transport' {x s t1 t2 t3 n n1 n2 n3} :
iipc2
([poly_arr (to_d t3) (poly_var b3t); poly_arr (to_d t2) (poly_var b2t); poly_arr (to_d t1) (poly_var b1t); poly_var tt] ++
[poly_var ut] ++ [poly_var st] ++ [poly_var pt]) (poly_arr (to_d s) (poly_var x)) ->
encodes_nat t1 n1 -> encodes_nat t2 n2 -> encodes_nat t3 n3 -> encodes_nat s n ->
(x = b1t -> n = n1) /\ (x = b2t -> n = n2) /\ (x = b3t -> n = n3).