fact: Record EnvSubst : Type := build_envSub { envSub: relation nat; size: nat; envSub_dec: forall i j, {envSub i j} + {~envSub i j}; envSub_Lok: forall i j j', envSub i j -> envSub i j' -> j = j'; envSub_Rok: forall i i' j, envSub i j -> envSub i' j -> i = i'; sizeOk: forall i j, envSub i j -> i < size /\ j < size }.
imports: CoLoR(RelExtras ListPermutation TermsPos ListUtil ListExtras LogicUtil) Coq(Compare_dec Setoid Morphisms Lia PeanoNat)