substituteElement sub (ElemLoc l) = ElemLoc $ substituteLocId sub l
substituteElement sub (ElemLoc l) = ElemLoc $ substituteLocId sub l
substituteElement sub (ElemLoc l) = ElemLoc $ substituteLocId sub l