Extend Especialize rule: find maximal argument prefixes that end in 1 or more arguments with functional types

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