factorial example updated and added to the nightly bench

.gitignore

@@ -34,6 +34,9 @@ why.conf
 /bench/programs/good/see/
 /bench/programs/good/set/
 /bench/programs/good/recfun/
+/bench/programs/good/loops/
+/bench/programs/good/po/
+/bench/valid/list/
 
 # /bin/
 /bin/why3.byte

examples/programs/fact.mlw

@@ -10,23 +10,41 @@ theory Fact "Factorial"
 
 end
 
+module FactRecursive
+
+  use import Fact
+  use import int.Int
+
+  let rec fact_rec (x:int) : int variant {x} =
+    { x >= 0 }
+    if x = 0 then 1 else x * fact_rec (x-1)
+    { result = fact x }
+
+end
 
 module FactImperative
 
-use import Fact
-use import int.Int
-use import module ref.Ref
-
-let fact_imp (x:int) : int =
-  { x >= 0 }
-  let y = ref 0 in
-  let r = ref 1 in
-  while !y < x do 
-    invariant { 0 <= !y <= x and !r = fact !y }
-    y := !y + 1;
-    r := !r * !y
-  done; 
-  !r
-  { result = fact x }
+  use import Fact
+  use import int.Int
+  use import module ref.Ref
+
+  let fact_imp (x:int) : int =
+    { x >= 0 }
+    let y = ref 0 in
+    let r = ref 1 in
+    while !y < x do
+      invariant { 0 <= !y <= x and !r = fact !y }
+      y := !y + 1;
+      r := !r * !y
+    done;
+    !r
+    { result = fact x }
 
 end
+
+(*
+Local Variables:
+compile-command: "unset LANG; make -C ../.. examples/programs/fact.gui"
+End:
+*)
+

examples/programs/fact/why3session.xml

+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE why3session SYSTEM "why3session.dtd">
+<why3session name="examples/programs/fact/why3session.xml">
+ <file name="../fact.mlw" verified="true" expanded="true">
+  <theory name="Fact" verified="true" expanded="true">
+  </theory>
+  <theory name="FactRecursive" verified="true" expanded="true">
+   <goal name="WP_parameter fact_rec" expl="correctness of parameter fact_rec" sum="26ddbd98b20d38d8cc8174af1ddddb03" proved="true" expanded="true">
+    <proof prover="alt-ergo" timelimit="10" edited="" obsolete="false">
+     <result status="valid" time="0.02"/>
+    </proof>
+   </goal>
+  </theory>
+  <theory name="FactImperative" verified="true" expanded="true">
+   <goal name="WP_parameter fact_imp" expl="correctness of parameter fact_imp" sum="e351701b7425629858770982d2abae90" proved="true" expanded="true">
+    <proof prover="alt-ergo" timelimit="10" edited="" obsolete="false">
+     <result status="valid" time="0.03"/>
+    </proof>
+   </goal>
+  </theory>
+ </file>
+</why3session>