Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: Parallel.thy Sprache: Isabelle

Original von: Isabelle^©

(* Author: Florian Haftmann, TU Muenchen *)

section \<open>Futures and parallel lists for code generated towards Isabelle/ML\<close>

theory Parallel
imports Main
begin

subsection \<open>Futures\<close>

datatype 'a future = fork "unit \ 'a"

primrec join :: "'a future \ 'a" where
  "join (fork f) = f ()"

lemma future_eqI [intro!]:
  assumes "join f = join g"
  shows "f = g"
  using assms by (cases f, cases g) (simp add: ext)

code_printing
  type_constructor future \<rightharpoonup> (Eval) "_ future"
| constant fork \<rightharpoonup> (Eval) "Future.fork"
| constant join \<rightharpoonup> (Eval) "Future.join"

code_reserved Eval Future future

subsection \<open>Parallel lists\<close>

definition map :: "('a \ 'b) \ 'a list \ 'b list" where
  [simp]: "map = List.map"

definition forall :: "('a \ bool) \ 'a list \ bool" where
  "forall = list_all"

lemma forall_all [simp]:
  "forall P xs \ (\x\set xs. P x)"
  by (simp add: forall_def list_all_iff)

definition exists :: "('a \ bool) \ 'a list \ bool" where
  "exists = list_ex"

lemma exists_ex [simp]:
  "exists P xs \ (\x\set xs. P x)"
  by (simp add: exists_def list_ex_iff)

code_printing
  constant map \<rightharpoonup> (Eval) "Par'_List.map"
| constant forall \<rightharpoonup> (Eval) "Par'_List.forall"
| constant exists \<rightharpoonup> (Eval) "Par'_List.exists"

code_reserved Eval Par_List

hide_const (open) fork join map exists forall

end

¤ Dauer der Verarbeitung: 0.13 Sekunden (vorverarbeitet) ¤

Download des Quellennavigators
Download des sprechenden Kalenders
in der Quellcodebibliothek suchen

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 ist noch experimentell.