Concept concSrce = rel.m_concSource;
Concept newConcSrce = new Concept(concSrce.m_pdType,
concSrce.m_pdReferent, concSrce.m_pdValue,
env);
newConcSrce.addOutgoingRelation(newRelation);
newRelation.m_concSource = newConcSrce;
Concept concDest = rel.m_concDestination;
Concept newConcDest = new Concept(concDest.m_pdType,
concDest.m_pdReferent, concDest.m_pdValue,