File: 20618.mlw

package info (click to toggle)
why3 1.2.0-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 26,592 kB
  • sloc: xml: 129,496; ml: 77,153; ansic: 2,518; makefile: 2,220; sh: 1,600; lisp: 193; python: 29
file content (8 lines) | stat: -rw-r--r-- 122 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
 
module Bug
  type foo = { a: unit -> unit ; b : unit }

  constant bar : foo = {
    a = fun _ -> () ;
    b = ()
  }
end