File: loop_monomorph.mlw

package info (click to toggle)
why 2.30%2Bdfsg-5
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 26,916 kB
  • sloc: ml: 116,979; java: 9,376; ansic: 5,175; makefile: 1,335; sh: 531; lisp: 127
file content (14 lines) | stat: -rw-r--r-- 236 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 

(* fichier qui fait boucler la mthode actuelle de monomorphisation *)

type 'a list

logic one : 'a -> 'a list

logic hd : 'a list -> 'a

axiom hd_one : forall x:'a. hd(hd(one(one(x)))) = x

goal test : forall l:int list. hd(l) = 0