REXObjectPropertyExpressionImpl getREXName4RoleChain(List<OWLObjectPropertyExpression> subs){

		if(subs.size() == 1)
			return getREXObjectPropertyExpression(subs.get(0));

		REXObjectPropertyExpressionImpl newName = rolechainNames.get(subs);
		if(newName == null)
		{
			newName = new REXObjectPropertyImpl();
			rolechainNames.put(subs, newName);
		}
		REXObjectPropertyExpressionImpl newSub1 = getREXObjectPropertyExpression(subs.get(0));
		REXObjectPropertyExpressionImpl newSub2 = getREXName4RoleChain(subs.subList(1, subs.size()));
		initialiseREXSubPropertyChainOf(newSub1, newSub2, newName);
		return newName;
	}