Exhaustive when support for sealed classes #KT-7606 Fixed

When on sealed can use is (both for derived classes and objects) or just comparison (only for derived objects).
A pack of tests provided.

compiler/testData/diagnostics/tests/sealed/ExhaustiveWhenWithAdditionalMember.kt

@@ -0,0 +1,18 @@
+sealed class Sealed(val x: Int) {
+    data class Tuple(val x: Int, val y: Int)
+    object First: Sealed(12)
+    open class NonFirst(tuple: Tuple): Sealed(tuple.x) {
+        val y: Int = tuple.y
+        object Second: NonFirst(Tuple(34, 2))
+        object Third: NonFirst(Tuple(56, 3))
+    }
+}
+
+fun foo(s: Sealed): Int {
+    return when(s) {
+        is Sealed.First -> 1
+        is Sealed.NonFirst -> 0
+        // no else required
+    }
+}
+