Quellcode-Bibliothek

^© Kompilation durch diese Firma

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

Datei: bug7348.v Sprache: Coq

Original von: Coq^©

Require Extraction.

Extraction Language OCaml.
Set Extraction KeepSingleton.

Module Case1.

Record rec (x : bool) := { f : bool }.

Definition silly x (b : rec x) :=
if x return (if x then bool else unit) then f x b else tt.

End Case1.

Module Case2.

Record rec (x : bool) := { f : bool -> bool }.

Definition silly x (b : rec x) :=
if x return (if x then bool else unit) then f x b false else tt.

End Case2.

Extraction TestCompile Case1.silly Case2.silly.
Recursive Extraction Case1.silly Case2.silly.

¤ Dauer der Verarbeitung: 0.15 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.