Remove Z3ListDatatypeTest>>testAppendAddsLengths

This example was added as a demo for one particular FAST talk.
In my view, its limited didactic value does not justify sacrificing
completely-green Z3-Tests.

src/Z3-Tests/Z3ListDatatypeTest.class.st

@@ -19,32 +19,6 @@ Z3ListDatatypeTest >> setUp [
 	ll := listType mkConst: 'll'.
 ]
 
-{ #category : #tests }
-Z3ListDatatypeTest >> testAppendAddsLengths [
-	| len append xs ys |
-	self skip. "The solver will diverge."
-
-	len := 'len' recursiveFunctionFrom: {listType} to: Int sort.
-	len value: l is: (l is_nil ifTrue: [0 toInt] ifFalse: [(len value: l cdr) + 1]).
-	append := 'append' recursiveFunctionFrom: {listType.listType} to: listType.
-	append valueWithArguments: {l.ll} is: (l is_nil
-		ifTrue: [ll]
-		ifFalse: [ | h t rest |
-			h := l car.
-			t := l cdr.
-			rest := append value: t value: ll.
-			listType cons: h _: rest ]).
-
-	xs := listType mkConst: 'xs'.
-	ys := listType mkConst: 'ys'.
-	self assert: (
-		Z3Solver isValid: 
-			(len value: xs) + (len value: ys) "|xs|+|ys|"
-				===
-			(len value: (append value: xs value: ys)) "|xs,ys|"
-	)
-]
-
 { #category : #tests }
 Z3ListDatatypeTest >> testListDatatype [
 	self assert: listType nil class equals: Datatype.