Add seq literal and for-arrow sequence coverage

Co-authored-by: multica-agent <github@multica.ai>

Author: rodrigovidal

tests/FSharp.Compiler.ComponentTests/EmittedIL/SeqExpressionStepping/SeqExpressionStepping.fs

@@ -67,4 +67,11 @@ module SeqExpressionStepping =
         compilation
         |> getCompilation
         |> verifyCompilation
-#endif
+#endif
+
+    // SOURCE=SeqExpressionSteppingTest08.fs SCFLAGS="-g --test:EmitFeeFeeAs100001 --optimize-" COMPILE_ONLY=1 POSTCMD="..\\CompareIL.cmd SeqExpressionSteppingTest8.exe"	# SeqExpressionSteppingTest8.fs -
+    [<Theory; FileInlineData("SeqExpressionSteppingTest08.fs", Realsig=BooleanOptions.Both)>]
+    let ``SeqExpressionSteppingTest08_fs`` compilation =
+        compilation
+        |> getCompilation
+        |> verifyCompilation

tests/FSharp.Compiler.ComponentTests/EmittedIL/SeqExpressionStepping/SeqExpressionSteppingTest08.fs

@@ -0,0 +1,12 @@
+// #NoMono #NoMT #CodeGen #EmittedIL #Sequences
+module SeqExpressionSteppingTest8
+module SeqExpressionSteppingTest8 =
+
+    let directValues () =
+        seq { 1; 2; 3 }
+
+    let doubledWithForArrow xs =
+        seq { for x in xs -> x * 2 }
+
+    let _ = directValues () |> Seq.length
+    let _ = doubledWithForArrow [ 1; 2; 3 ] |> Seq.length