test(Value): use Foldable combinators for succeeded and extractValue

Replace explicit pattern matching with more idiomatic Foldable combinators:
- `succeeded = not . null` - checks if result is non-empty (success)
- `extractValue = foldr const err` - extracts value or errors on failure

This leverages BuiltinResult's Foldable instance for more concise code.

🤖 Generated with [Claude Code](https://claude.com/claude-code)

Co-Authored-By: Claude <[email protected]>

Author: Unisay

plutus-core/plutus-core/test/Value/Spec.hs

@@ -64,13 +64,8 @@ prop_unionCommutative v v' =
 
 prop_unionAssociative :: Value -> Value -> Value -> Property
 prop_unionAssociative v1 v2 v3 =
-  let succeeded (BuiltinSuccess _)           = True
-      succeeded (BuiltinSuccessWithLogs _ _) = True
-      succeeded (BuiltinFailure _ _)         = False
-
-      extractValue (BuiltinSuccess v)           = v
-      extractValue (BuiltinSuccessWithLogs _ v) = v
-      extractValue (BuiltinFailure _ _)         = error "extractValue called on BuiltinFailure"
+  let succeeded = not . null
+      extractValue = foldr const (error "extractValue called on BuiltinFailure")
 
       r23 = V.unionValue v2 v3
       r12 = V.unionValue v1 v2