Quelle Computations.thy

Sprache: Isabelle

(*  Title:      HOL/ex/Computations.thy
    Author:     Florian Haftmann, TU Muenchen
*)

section ‹Simple example for computations generated by the code generator›

theory Computations
  imports Main
begin

fun even :: "nat ==> bool"
  where "even 0 ⟷ True"
      | "even (Suc 0) ⟷ False"
      | "even (Suc (Suc n)) ⟷ even n"

fun fib :: "nat ==> nat"
  where "fib 0 = 0"
      | "fib (Suc 0) = Suc 0"
      | "fib (Suc (Suc n)) = fib (Suc n) + fib n"

declare [[ML_source_trace]]

ML ‹

int_of_nat @{code "0 :: nat"} = 0
| int_of_nat (@{code Suc} n) = int_of_nat n + 1;

comp_nat = @{computation nat
terms: "plus :: nat ==>_" "times :: nat ==> _" fib
datatypes: nat}
(fn post => post o HOLogic.mk_nat o int_of_nat o the);

comp_numeral = @{computation nat
terms: "0 :: nat" "1 :: nat" "2 :: nat" "3 :: nat"}
(fn post => post o HOLogic.mk_nat o int_of_nat o the);

comp_bool = @{computation bool
terms: HOL.conj HOL.disj HOL.implies
HOL.iff even "less_eq :: nat ==> _" "less :: nat ==> _" "HOL.eq :: nat ==> _"
datatypes: bool}
(K the);

comp_check = @{computation_check terms: Trueprop};

comp_dummy = @{computation "(nat × unit) option"
datatypes: "(nat × unit) option"}

›

declare [[ML_source_trace = false]]

ML_val ‹
comp_nat 🍋 term‹fib (Suc (Suc (Suc 0)) * Suc (Suc (Suc 0))) + Suc 0›
|> Syntax.string_of_term 🍋
|> writeln
›

ML_val ‹
comp_bool 🍋 term‹fib (Suc (Suc (Suc 0)) * Suc (Suc (Suc 0))) + Suc 0 < fib (Suc (Suc 0))›
›

ML_val ‹
comp_check 🍋 🍋‹fib (Suc (Suc (Suc 0)) * Suc (Suc (Suc 0))) + Suc 0 > fib (Suc (Suc 0))›
›

ML_val ‹
comp_numeral 🍋 term‹Suc 42 + 7›
|> Syntax.string_of_term 🍋
|> writeln
›

end

Messung V0.5 in Prozent

¤ Dauer der Verarbeitung: 0.9 Sekunden (vorverarbeitet am 2026-06-10) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung und die Messung sind noch experimentell.