pub fn compose_extend(
    l: &Substitution<IRTerm>,
    r: &Substitution<IRTerm>
) -> Substitution<IRTerm>