X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=ocaml%2Fproblems%2Fsimple.2;h=f5bb2cef95efb0ecb244d8cf9cab4520940da3f9;hb=55cdd31ff67621c1c56899f044f849ea72d9a29e;hp=184b4fa2afd81ae564424b9be411f38465f1c641;hpb=428691717031468f6583a899fe8edbe58163428a;p=fireball-separation.git

diff --git a/ocaml/problems/simple.2 b/ocaml/problems/simple.2
index 184b4fa..f5bb2ce 100644
--- a/ocaml/problems/simple.2
+++ b/ocaml/problems/simple.2
@@ -1,3 +1,10 @@
 $! simple: C diverges in pure (simplified from simple.1 (1))
 D v0 v1 (x. y. z. v2 y) (v5 v6)
 C v7 (v0 v1 v5 (x. x) (x. x) (x. x) (x. v8 v9)) (v0 v1 v5 (x. v2) v1 v5 (x. x)) (v8 v10 v5 (v5 v8 v6 v8 v5 (v5 v6) v8) v10 v10 v6)
+
+$! simple: il divergente non diverge
+D (((x7 x5) (x7 x5)) (x6. x4))(((((((x7 x5) (x7 x5)) ((x7 x5) (x1. (x6. ((x6 x3) (x9 (x6 x3))))))) (x6. x6)) x4) (x3. ((x0 x0) (x0 x2)))) (x4. (x6. x4)))
+C ((((((x6 x3) (x9 (x6 x3))) (x9. (x7. (x2. x3)))) (x4. (x6. ((x6 x3) (x9 (x6 x3)))))) x0) (x4. (x6. ((x6 x3) (x9 (x6 x3))))))
+C ((((((x7 x5) (x7 x5)) ((x7 x5) (x1. (x6. ((x6 x3) (x9 (x6 x3))))))) (x6. x6)) x4) (x0 (x4. (x7 x5))))
+C ((((((x8 (x4. (x7 x5))) (x0 x2)) (x1. (x6. ((x6 x3) (x9 (x6 x3)))))) (x3. (x9 (x6 x3)))) (((x0 x0) (x9 (x6 x3))) x1)) (x3. (x9 (x6 x3))))
+C (((((x7 x5) (x1. (x6. ((x6 x3) (x9 (x6 x3)))))) (x2. (x7. x4))) (((((((x7 x5) (x7 x5)) ((x7 x5) (x1. (x6. ((x6 x3) (x9 (x6 x3))))))) (x6. x6)) x4) (x3. ((x0 x0) (x0 x2)))) (x4. (x6. x4)))) (x3. (x6 (x7 x5))))