Skip to content
Snippets Groups Projects
Commit 02cc31c9 authored by Alan Schmitt's avatar Alan Schmitt
Browse files

cleaning up

parent a3f2cd92
No related branches found
No related tags found
No related merge requests found
...@@ -86,12 +86,6 @@ module Int64 : sig ...@@ -86,12 +86,6 @@ module Int64 : sig
val float_of_bits : int64 -> float val float_of_bits : int64 -> float
end end
(* This may be awkward! *)
module Lazy : sig
type 'a t
val force : 'a t -> 'a (* ARTHUR added *)
end
module List : sig module List : sig
val map : ('a -> 'b) -> 'a list -> 'b list val map : ('a -> 'b) -> 'a list -> 'b list
val rev : 'a list -> 'a list val rev : 'a list -> 'a list
......
...@@ -6,7 +6,6 @@ open JsSyntaxAux ...@@ -6,7 +6,6 @@ open JsSyntaxAux
open LibList open LibList
open LibNat open LibNat
open LibOption open LibOption
open LibStream
open LibString open LibString
open List0 open List0
open Shared open Shared
......
...@@ -4,9 +4,8 @@ open JsPreliminary ...@@ -4,9 +4,8 @@ open JsPreliminary
open JsSyntax open JsSyntax
open JsSyntaxAux open JsSyntaxAux
open LibInt open LibInt
open LibStream
(** val prop_attributes_for_global_object : value -> attributes_data **) (** Val prop_attributes_for_global_object : value -> attributes_data **)
let prop_attributes_for_global_object v = let prop_attributes_for_global_object v =
{ attributes_data_value = v; attributes_data_writable = true; { attributes_data_value = v; attributes_data_writable = true;
......
open JsNumber open JsNumber
open LibHeap open LibHeap
open LibReflect open LibReflect
open LibStream
open Shared open Shared
module Heap = HeapGen(HeapList) module Heap = HeapGen(HeapList)
......
type 'a stream = 'a __stream Lazy.t
and 'a __stream =
| Coq_stream_intro [@f label0, label1] of 'a * 'a stream (** Auto Generated Attributes **)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment