Nuprl - Some Definitions

automata	`Def Automata(Alph;States) == (StatesAlphStates)States(States)` `Thm* Alph,States:Type{i}. Automata(Alph;States) Type{i'}`
card_ge	`Def \|S\| \|T\| == f:(ST). Surj(S; T; f)` `Thm* S,T:Type. \|S\| \|T\| Prop`
connected	`Def Con(A) == s:St. l:Alph. (Result(A)l) = s` `Thm Alph,St:Type, A:Automata(Alph;St). Con(A) Prop`
refine	`Def A1 A2 == x,y:Alph. (Result(A1)x) = (Result(A1)y) S1 (Result(A2)x) = (Result(A2)y) S2` `Thm Alph,S1,S2:Type, A1:Automata(Alph;S1), A2:Automata(Alph;S2). A1 A2 Prop`
compute_list	`Def Result(DA)l == if null(l) InitialState(DA) else DA((Result(DA)tl(l)),hd(l)) fi (recursive)` `Thm* Alph,St:Type, A:Automata(Alph;St), l:Alph*. (Result(A)l) St`
so_lambda2	`Def (1,2. b(1;2))(1,2) == b(1;2)`
surject	`Def Surj(A; B; f) == b:B. a:A. f(a) = b` `Thm* A,B:Type, f:(AB). Surj(A; B; f) Prop`
hd	`Def hd(l) == Case of l; nil "?" ; h.t h` `Thm* A:Type, l:A*. \|\|l\|\|1 hd(l) A`
tl	`Def tl(l) == Case of l; nil nil ; h.t t` `Thm* A:Type, l:A. tl(l) A`
DA_act	`Def a == 1of(a)` `Thm* Alph,States:Type, a:Automata(Alph;States). a StatesAlphStates`
DA_init	`Def InitialState(a) == 1of(2of(a))` `Thm* Alph,States:Type, a:Automata(Alph;States). InitialState(a) States`
null	`Def null(as) == Case of as; nil true ; a.as' false Thm* T:Type, as:T. null(as)` `Thm null(nil)`
pi1	`Def 1of(t) == t.1` `Thm* A:Type, B:(AType), p:a:AB(a). 1of(p) A`
pi2	`Def 2of(t) == t.2` `Thm* A:Type, B:(AType), p:a:AB(a). 2of(p) B(1of(p))`

About: