products/sources/formale sprachen/Coq/test-suite/output/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

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

Datei: exitstatus.sh   Sprache: Shell

Untersuchungsergebnis.out Download desShell {Shell[49] HTML[55] Abap[154]}zum Wurzelverzeichnis wechseln

Extracted code successfully compiled

type __ = Obj.t

type unit0 =
| Tt

type bool =
| True
| False

module Case1 =
 struct
  type coq_rec = { f : bool }

  (** val f : bool -> coq_rec -> bool **)

  let f _ r =
    r.f

  (** val silly : bool -> coq_rec -> __ **)

  let silly x b =
    match x with
    | True -> Obj.magic b.f
    | False -> Obj.magic Tt
 end

module Case2 =
 struct
  type coq_rec = { f : (bool -> bool) }

  (** val f : bool -> coq_rec -> bool -> bool **)

  let f _ r =
    r.f

  (** val silly : bool -> coq_rec -> __ **)

  let silly x b =
    match x with
    | True -> Obj.magic b.f False
    | False -> Obj.magic Tt
 end

[ zur Elbe Produktseite wechseln0.106Quellennavigators  ]