Require Coq.extraction.Extraction.
Require Import FSetList.
Require Import OrderedTypeEx.
Module NatSet := FSetList.Make (Nat_as_OT).
Recursive Extraction NatSet.fold.
Module FSetHide (X : FSetInterface.S).
Include X.
End FSetHide.
Module NatSet' := FSetHide NatSet.
Recursive Extraction NatSet'.fold.
Extraction TestCompile NatSet'.fold.
(* Extraction "test2141.ml" NatSet'.fold. *)
¤ Dauer der Verarbeitung: 0.16 Sekunden
(vorverarbeitet)
¤
|
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.
|