finite env (ECase e alts)       = finite env e && all (finite env . snd) alts
finite env (ECase e alts)       = finite env e && all (finite env . snd) alts
finite env (ECase e alts)       = finite env e && all (finite env . snd) alts