File: loop_monomorph.mlw

package info (click to toggle)
why 2.13-2
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 12,608 kB
  • ctags: 16,817
  • sloc: ml: 102,672; java: 7,173; ansic: 4,439; makefile: 1,409; sh: 585
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