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.73Quellennavigators
]
