Nuprl Definition : union-metric-space
union-metric-space(T;eq;X) ==
  i:T × (fst((X i))) with λp,q. let i,v = p in let j,w = q in if eq i j then rmin(mdist(snd((X i));v;w);r1) else r1 fi 
Definitions occuring in Statement : 
mk-metric-space: X with d
, 
mdist: mdist(d;x;y)
, 
rmin: rmin(x;y)
, 
int-to-real: r(n)
, 
ifthenelse: if b then t else f fi 
, 
pi1: fst(t)
, 
pi2: snd(t)
, 
apply: f a
, 
lambda: λx.A[x]
, 
spread: spread def, 
product: x:A × B[x]
, 
natural_number: $n
Definitions occuring in definition : 
mk-metric-space: X with d
, 
product: x:A × B[x]
, 
pi1: fst(t)
, 
lambda: λx.A[x]
, 
spread: spread def, 
ifthenelse: if b then t else f fi 
, 
rmin: rmin(x;y)
, 
mdist: mdist(d;x;y)
, 
pi2: snd(t)
, 
apply: f a
, 
int-to-real: r(n)
, 
natural_number: $n
FDL editor aliases : 
union-metric-space
Latex:
union-metric-space(T;eq;X)  ==
    i:T  \mtimes{}  (fst((X  i)))  with  \mlambda{}p,q.  let  i,v  =  p 
                                                                in  let  j,w  =  q 
                                                                      in  if  eq  i  j  then  rmin(mdist(snd((X  i));v;w);r1)  else  r1  fi 
Date html generated:
2019_10_29-AM-11_11_56
Last ObjectModification:
2019_10_02-AM-09_52_28
Theory : reals
Home
Index