Retweak the last tweak to allow type inference to succeed in a strict superset of the places where it used to succeed

fun main [r] (r : $([A = int] ++ ([B = float] ++ r))) : $([A = float] ++ ([B = int] ++ r)) = r