File: Mlist.mod

package info (click to toggle)
cafeobj 1.6.0-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye, sid
  • size: 19,900 kB
  • sloc: lisp: 85,055; sh: 659; makefile: 437; perl: 147
file content (20 lines) | stat: -rw-r--r-- 352 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
require Mone

module LIST (X :: ONE) {
  [ Elt < NeList < List ]
  op nil : -> List
  op __ : Elt List -> NeList
  op __ : Elt NeList -> NeList
  op head_ : List -> Elt
  op tail_ : List -> List
  var E : Elt
  var L : List
  eq head (E L) = E .
  eq tail (E L) = L .
}

provide Mlist

eof

** $Id: Mlist.mod,v 1.1.1.1 2003-06-19 08:30:11 sawada Exp $