fact: Fixpoint rDeClos (s:rComp) : rTerm := match s with | rCompVar x => rVar x | rCompApp s t => (rDeClos s) (rDeClos t) | rCompClos s A => rSubstList s 0 (map rDeClos A) end.
imports: Undecidability.L.Tactics(LClos) ZArith FunInd