-- occurs check of v1 in term is not needed since this case has been
-- covered in definition of unifyTerms
applyOneSubs ( _ , Variable _) c@(Constant _) = c
applyOneSubs ( _ , Variable _) c@(Constant _) = c
applyOneSubs ( _ , Variable _) c@(Constant _) = c