Project

General

Profile

Revision 70df2f87 src/clock_predef.ml

View differences:

src/clock_predef.ml
14 14
(** Predefined operator clocks *)
15 15
open Clocks
16 16

  
17
let ck_tuple cl = new_ck (Ctuple cl) true
18

  
17 19
let ck_bin_univ =
18 20
  let univ = new_univar () in
19 21
  new_ck (Carrow (new_ck (Ctuple [univ;univ]) true, univ)) true

Also available in: Unified diff