Nuprl Definition : per-univi
per-univi{i:l}(Term;UNIV;i;T;T';eq)
==r if i=0
       then False
       else (per-computes-to(Term;T;UNIV i)
            ∧ per-computes-to(Term;T';UNIV i)
            ∧ (∀t,t':Term.
                 (eq t t'
                 
⇐⇒ ∃eq':term-equality{i:l}(Term)
                      per-close{i:l}(Term; λT,T',eq. per-univi{i:l}(Term;UNIV;i - 1;T;T';eq); t; t'; eq'))))
per-univi{i:l}(Term;UNIV;i;T;T';eq) ==
  fix((λper-univi,i,T,T',eq. if i=0
                                then False
                                else (per-computes-to(Term;T;UNIV i)
                                     ∧ per-computes-to(Term;T';UNIV i)
                                     ∧ (∀t,t':Term.
                                          (eq t t'
                                          
⇐⇒ ∃eq':term-equality{i:l}(Term)
                                               per-close{i:l}(Term; λT,T',eq. (per-univi (i - 1) T T' eq); t; t'; eq')))\000C))) 
  i 
  T 
  T' 
  eq
Definitions occuring in Statement : 
per-computes-to: per-computes-to(Term;a;b)
, 
term-equality: term-equality{i:l}(Term)
, 
all: ∀x:A. B[x]
, 
exists: ∃x:A. B[x]
, 
iff: P 
⇐⇒ Q
, 
and: P ∧ Q
, 
false: False
, 
int_eq: if a=b  then c  else d
, 
apply: f a
, 
fix: fix(F)
, 
lambda: λx.A[x]
, 
subtract: n - m
, 
natural_number: $n
Definitions occuring in definition : 
fix: fix(F)
, 
int_eq: if a=b  then c  else d
, 
false: False
, 
and: P ∧ Q
, 
per-computes-to: per-computes-to(Term;a;b)
, 
all: ∀x:A. B[x]
, 
iff: P 
⇐⇒ Q
, 
exists: ∃x:A. B[x]
, 
term-equality: term-equality{i:l}(Term)
, 
lambda: λx.A[x]
, 
apply: f a
, 
subtract: n - m
, 
natural_number: $n
FDL editor aliases : 
per-univi
Latex:
per-univi\{i:l\}(Term;UNIV;i;T;T';eq)
==r  if  i=0
              then  False
              else  (per-computes-to(Term;T;UNIV  i)
                        \mwedge{}  per-computes-to(Term;T';UNIV  i)
                        \mwedge{}  (\mforall{}t,t':Term.
                                  (eq  t  t'
                                  \mLeftarrow{}{}\mRightarrow{}  \mexists{}eq':term-equality\{i:l\}(Term)
                                            per-close\{i:l\}(Term;  \mlambda{}T,T',eq.  per-univi\{i:l\}(Term;UNIV;i  -  1;T;T';eq);  t;  t';\000C  eq'))))
Latex:
per-univi\{i:l\}(Term;UNIV;i;T;T';eq)  ==
    fix((\mlambda{}per-univi,i,T,T',eq.  if  i=0
                                                                then  False
                                                                else  (per-computes-to(Term;T;UNIV  i)
                                                                          \mwedge{}  per-computes-to(Term;T';UNIV  i)
                                                                          \mwedge{}  (\mforall{}t,t':Term.
                                                                                    (eq  t  t'
                                                                                    \mLeftarrow{}{}\mRightarrow{}  \mexists{}eq':term-equality\{i:l\}(Term)
                                                                                              per-close\{i:l\}(Term;
                                                                                                                            \mlambda{}T,T',eq.  (per-univi  (i  -  1)  T  T'  eq);
                                                                                                                            t;
                                                                                                                            t';
                                                                                                                            eq')))))) 
    i 
    T 
    T' 
    eq
Date html generated:
2016_05_15-PM-01_49_19
Last ObjectModification:
2015_09_23-AM-07_37_17
Theory : parameterized!rec
Home
Index