| author | wenzelm |
| Thu, 29 Oct 2009 16:05:51 +0100 | |
| changeset 33307 | 44af0fab4b10 |
| parent 33010 | 39f73a59e855 |
| permissions | -rw-r--r-- |
(benchmark Isabelle :extrasorts ( T1 T2) :extrafuns ( (uf_1 Int T1) (uf_2 T1 Int) (uf_3 T1) ) :assumption (forall (?x1 T1) (= (uf_1 (uf_2 ?x1)) ?x1)) :assumption (forall (?x2 Int) (implies (<= 0 ?x2) (= (uf_2 (uf_1 ?x2)) ?x2))) :assumption (forall (?x3 Int) (implies (< ?x3 0) (= (uf_2 (uf_1 ?x3)) 0))) :assumption (not (let (?x4 (uf_1 (+ 1 (uf_2 uf_3)))) (flet ($x5 (if_then_else (< 0 (uf_2 ?x4)) true false)) (or (iff $x5 (= (uf_1 (- (uf_2 ?x4) 1)) uf_3)) $x5)))) :formula true )