fact: Definition ValidIndices {A B : Type} (bindingInfo : list (nat * nat)) (rhsSyms : list (A + B)) : [univ] := ( forall n m, LIn (n,m) bindingInfo -> (m < length rhsSyms) # (n < length rhsSyms) # (true = liftNth isInl rhsSyms n) ) # ( forall n, (true = liftNth isInl rhsSyms n) -> LIn n (map (@fst _ _) bindingInfo) ) #no_repeats bindingInfo.
imports: GVariables