src/HOL/SMT/Examples/cert/z3_nat_arith_04
author wenzelm
Thu, 29 Oct 2009 16:05:51 +0100
changeset 33307 44af0fab4b10
parent 33010 39f73a59e855
permissions -rw-r--r--
Named_Thms is not scalable;

(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
)