Def	r.l	[r_select]
Def	kind(a)	[kind]
Def	value(a)	[value]
Def	{p}	[record_pair]
Def	D(i) for i I	[dall]	mb declaration
Def	Decl	[decl]	mb declaration
Def	x:A. B(x)	[all]	core
Def	(d)	[sigma]
Def	{d}	[record]
Def	decl_type(d;x)	[decl_type]	mb declaration
Def	Label	[lbl]	mb label
Def	1of(t)	[pi1]	core
Def	2of(t)	[pi2]	core
Def	ground_ptn(p)	[ground_ptn]	mb basic
Def	b	[assert]	bool 1
Def	Pattern	[ptn]	mb basic
Def	Default = > body	[case_default]	prog 1
Def	pq	[band]	bool 1
Def	Case ptn_pr( < x, y > ) = > body(x;y) cont	[case_lbl_pair]	mb basic
Def	Case ptn_var(x) = > body(x) cont	[case_ptn_var]	mb basic
Def	Case(value) body	[case]	prog 1
Def	ptn_con(T)	[ptn_con]	mb basic
Def	hd(l)	[hd]	list 1
Def	tl(l)	[tl]	list 1
Def	inl(x) = > body(x) cont	[case_inl]	prog 1
Def	inr(x) = > body(x) cont	[case_inr]	prog 1

About: