ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  isxmet GIF version

Theorem isxmet 13848
Description: Express the predicate "𝐷 is an extended metric". (Contributed by Mario Carneiro, 20-Aug-2015.)
Assertion
Ref Expression
isxmet (𝑋 ∈ 𝐴 β†’ (𝐷 ∈ (∞Metβ€˜π‘‹) ↔ (𝐷:(𝑋 Γ— 𝑋)βŸΆβ„* ∧ βˆ€π‘₯ ∈ 𝑋 βˆ€π‘¦ ∈ 𝑋 (((π‘₯𝐷𝑦) = 0 ↔ π‘₯ = 𝑦) ∧ βˆ€π‘§ ∈ 𝑋 (π‘₯𝐷𝑦) ≀ ((𝑧𝐷π‘₯) +𝑒 (𝑧𝐷𝑦))))))
Distinct variable groups:   π‘₯,𝑦,𝑧,𝐷   π‘₯,𝑋,𝑦,𝑧
Allowed substitution hints:   𝐴(π‘₯,𝑦,𝑧)

Proof of Theorem isxmet
Dummy variables 𝑑 𝑑 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 elex 2749 . . . . 5 (𝑋 ∈ 𝐴 β†’ 𝑋 ∈ V)
2 fnmap 6655 . . . . . . . 8 β†‘π‘š Fn (V Γ— V)
3 xrex 9856 . . . . . . . 8 ℝ* ∈ V
4 sqxpexg 4743 . . . . . . . 8 (𝑋 ∈ V β†’ (𝑋 Γ— 𝑋) ∈ V)
5 fnovex 5908 . . . . . . . 8 (( β†‘π‘š Fn (V Γ— V) ∧ ℝ* ∈ V ∧ (𝑋 Γ— 𝑋) ∈ V) β†’ (ℝ* β†‘π‘š (𝑋 Γ— 𝑋)) ∈ V)
62, 3, 4, 5mp3an12i 1341 . . . . . . 7 (𝑋 ∈ V β†’ (ℝ* β†‘π‘š (𝑋 Γ— 𝑋)) ∈ V)
7 rabexg 4147 . . . . . . 7 ((ℝ* β†‘π‘š (𝑋 Γ— 𝑋)) ∈ V β†’ {𝑑 ∈ (ℝ* β†‘π‘š (𝑋 Γ— 𝑋)) ∣ βˆ€π‘₯ ∈ 𝑋 βˆ€π‘¦ ∈ 𝑋 (((π‘₯𝑑𝑦) = 0 ↔ π‘₯ = 𝑦) ∧ βˆ€π‘§ ∈ 𝑋 (π‘₯𝑑𝑦) ≀ ((𝑧𝑑π‘₯) +𝑒 (𝑧𝑑𝑦)))} ∈ V)
86, 7syl 14 . . . . . 6 (𝑋 ∈ V β†’ {𝑑 ∈ (ℝ* β†‘π‘š (𝑋 Γ— 𝑋)) ∣ βˆ€π‘₯ ∈ 𝑋 βˆ€π‘¦ ∈ 𝑋 (((π‘₯𝑑𝑦) = 0 ↔ π‘₯ = 𝑦) ∧ βˆ€π‘§ ∈ 𝑋 (π‘₯𝑑𝑦) ≀ ((𝑧𝑑π‘₯) +𝑒 (𝑧𝑑𝑦)))} ∈ V)
9 xpeq12 4646 . . . . . . . . . 10 ((𝑑 = 𝑋 ∧ 𝑑 = 𝑋) β†’ (𝑑 Γ— 𝑑) = (𝑋 Γ— 𝑋))
109anidms 397 . . . . . . . . 9 (𝑑 = 𝑋 β†’ (𝑑 Γ— 𝑑) = (𝑋 Γ— 𝑋))
1110oveq2d 5891 . . . . . . . 8 (𝑑 = 𝑋 β†’ (ℝ* β†‘π‘š (𝑑 Γ— 𝑑)) = (ℝ* β†‘π‘š (𝑋 Γ— 𝑋)))
12 raleq 2673 . . . . . . . . . . 11 (𝑑 = 𝑋 β†’ (βˆ€π‘§ ∈ 𝑑 (π‘₯𝑑𝑦) ≀ ((𝑧𝑑π‘₯) +𝑒 (𝑧𝑑𝑦)) ↔ βˆ€π‘§ ∈ 𝑋 (π‘₯𝑑𝑦) ≀ ((𝑧𝑑π‘₯) +𝑒 (𝑧𝑑𝑦))))
1312anbi2d 464 . . . . . . . . . 10 (𝑑 = 𝑋 β†’ ((((π‘₯𝑑𝑦) = 0 ↔ π‘₯ = 𝑦) ∧ βˆ€π‘§ ∈ 𝑑 (π‘₯𝑑𝑦) ≀ ((𝑧𝑑π‘₯) +𝑒 (𝑧𝑑𝑦))) ↔ (((π‘₯𝑑𝑦) = 0 ↔ π‘₯ = 𝑦) ∧ βˆ€π‘§ ∈ 𝑋 (π‘₯𝑑𝑦) ≀ ((𝑧𝑑π‘₯) +𝑒 (𝑧𝑑𝑦)))))
1413raleqbi1dv 2681 . . . . . . . . 9 (𝑑 = 𝑋 β†’ (βˆ€π‘¦ ∈ 𝑑 (((π‘₯𝑑𝑦) = 0 ↔ π‘₯ = 𝑦) ∧ βˆ€π‘§ ∈ 𝑑 (π‘₯𝑑𝑦) ≀ ((𝑧𝑑π‘₯) +𝑒 (𝑧𝑑𝑦))) ↔ βˆ€π‘¦ ∈ 𝑋 (((π‘₯𝑑𝑦) = 0 ↔ π‘₯ = 𝑦) ∧ βˆ€π‘§ ∈ 𝑋 (π‘₯𝑑𝑦) ≀ ((𝑧𝑑π‘₯) +𝑒 (𝑧𝑑𝑦)))))
1514raleqbi1dv 2681 . . . . . . . 8 (𝑑 = 𝑋 β†’ (βˆ€π‘₯ ∈ 𝑑 βˆ€π‘¦ ∈ 𝑑 (((π‘₯𝑑𝑦) = 0 ↔ π‘₯ = 𝑦) ∧ βˆ€π‘§ ∈ 𝑑 (π‘₯𝑑𝑦) ≀ ((𝑧𝑑π‘₯) +𝑒 (𝑧𝑑𝑦))) ↔ βˆ€π‘₯ ∈ 𝑋 βˆ€π‘¦ ∈ 𝑋 (((π‘₯𝑑𝑦) = 0 ↔ π‘₯ = 𝑦) ∧ βˆ€π‘§ ∈ 𝑋 (π‘₯𝑑𝑦) ≀ ((𝑧𝑑π‘₯) +𝑒 (𝑧𝑑𝑦)))))
1611, 15rabeqbidv 2733 . . . . . . 7 (𝑑 = 𝑋 β†’ {𝑑 ∈ (ℝ* β†‘π‘š (𝑑 Γ— 𝑑)) ∣ βˆ€π‘₯ ∈ 𝑑 βˆ€π‘¦ ∈ 𝑑 (((π‘₯𝑑𝑦) = 0 ↔ π‘₯ = 𝑦) ∧ βˆ€π‘§ ∈ 𝑑 (π‘₯𝑑𝑦) ≀ ((𝑧𝑑π‘₯) +𝑒 (𝑧𝑑𝑦)))} = {𝑑 ∈ (ℝ* β†‘π‘š (𝑋 Γ— 𝑋)) ∣ βˆ€π‘₯ ∈ 𝑋 βˆ€π‘¦ ∈ 𝑋 (((π‘₯𝑑𝑦) = 0 ↔ π‘₯ = 𝑦) ∧ βˆ€π‘§ ∈ 𝑋 (π‘₯𝑑𝑦) ≀ ((𝑧𝑑π‘₯) +𝑒 (𝑧𝑑𝑦)))})
17 df-xmet 13451 . . . . . . 7 ∞Met = (𝑑 ∈ V ↦ {𝑑 ∈ (ℝ* β†‘π‘š (𝑑 Γ— 𝑑)) ∣ βˆ€π‘₯ ∈ 𝑑 βˆ€π‘¦ ∈ 𝑑 (((π‘₯𝑑𝑦) = 0 ↔ π‘₯ = 𝑦) ∧ βˆ€π‘§ ∈ 𝑑 (π‘₯𝑑𝑦) ≀ ((𝑧𝑑π‘₯) +𝑒 (𝑧𝑑𝑦)))})
1816, 17fvmptg 5593 . . . . . 6 ((𝑋 ∈ V ∧ {𝑑 ∈ (ℝ* β†‘π‘š (𝑋 Γ— 𝑋)) ∣ βˆ€π‘₯ ∈ 𝑋 βˆ€π‘¦ ∈ 𝑋 (((π‘₯𝑑𝑦) = 0 ↔ π‘₯ = 𝑦) ∧ βˆ€π‘§ ∈ 𝑋 (π‘₯𝑑𝑦) ≀ ((𝑧𝑑π‘₯) +𝑒 (𝑧𝑑𝑦)))} ∈ V) β†’ (∞Metβ€˜π‘‹) = {𝑑 ∈ (ℝ* β†‘π‘š (𝑋 Γ— 𝑋)) ∣ βˆ€π‘₯ ∈ 𝑋 βˆ€π‘¦ ∈ 𝑋 (((π‘₯𝑑𝑦) = 0 ↔ π‘₯ = 𝑦) ∧ βˆ€π‘§ ∈ 𝑋 (π‘₯𝑑𝑦) ≀ ((𝑧𝑑π‘₯) +𝑒 (𝑧𝑑𝑦)))})
198, 18mpdan 421 . . . . 5 (𝑋 ∈ V β†’ (∞Metβ€˜π‘‹) = {𝑑 ∈ (ℝ* β†‘π‘š (𝑋 Γ— 𝑋)) ∣ βˆ€π‘₯ ∈ 𝑋 βˆ€π‘¦ ∈ 𝑋 (((π‘₯𝑑𝑦) = 0 ↔ π‘₯ = 𝑦) ∧ βˆ€π‘§ ∈ 𝑋 (π‘₯𝑑𝑦) ≀ ((𝑧𝑑π‘₯) +𝑒 (𝑧𝑑𝑦)))})
201, 19syl 14 . . . 4 (𝑋 ∈ 𝐴 β†’ (∞Metβ€˜π‘‹) = {𝑑 ∈ (ℝ* β†‘π‘š (𝑋 Γ— 𝑋)) ∣ βˆ€π‘₯ ∈ 𝑋 βˆ€π‘¦ ∈ 𝑋 (((π‘₯𝑑𝑦) = 0 ↔ π‘₯ = 𝑦) ∧ βˆ€π‘§ ∈ 𝑋 (π‘₯𝑑𝑦) ≀ ((𝑧𝑑π‘₯) +𝑒 (𝑧𝑑𝑦)))})
2120eleq2d 2247 . . 3 (𝑋 ∈ 𝐴 β†’ (𝐷 ∈ (∞Metβ€˜π‘‹) ↔ 𝐷 ∈ {𝑑 ∈ (ℝ* β†‘π‘š (𝑋 Γ— 𝑋)) ∣ βˆ€π‘₯ ∈ 𝑋 βˆ€π‘¦ ∈ 𝑋 (((π‘₯𝑑𝑦) = 0 ↔ π‘₯ = 𝑦) ∧ βˆ€π‘§ ∈ 𝑋 (π‘₯𝑑𝑦) ≀ ((𝑧𝑑π‘₯) +𝑒 (𝑧𝑑𝑦)))}))
22 oveq 5881 . . . . . . . 8 (𝑑 = 𝐷 β†’ (π‘₯𝑑𝑦) = (π‘₯𝐷𝑦))
2322eqeq1d 2186 . . . . . . 7 (𝑑 = 𝐷 β†’ ((π‘₯𝑑𝑦) = 0 ↔ (π‘₯𝐷𝑦) = 0))
2423bibi1d 233 . . . . . 6 (𝑑 = 𝐷 β†’ (((π‘₯𝑑𝑦) = 0 ↔ π‘₯ = 𝑦) ↔ ((π‘₯𝐷𝑦) = 0 ↔ π‘₯ = 𝑦)))
25 oveq 5881 . . . . . . . . 9 (𝑑 = 𝐷 β†’ (𝑧𝑑π‘₯) = (𝑧𝐷π‘₯))
26 oveq 5881 . . . . . . . . 9 (𝑑 = 𝐷 β†’ (𝑧𝑑𝑦) = (𝑧𝐷𝑦))
2725, 26oveq12d 5893 . . . . . . . 8 (𝑑 = 𝐷 β†’ ((𝑧𝑑π‘₯) +𝑒 (𝑧𝑑𝑦)) = ((𝑧𝐷π‘₯) +𝑒 (𝑧𝐷𝑦)))
2822, 27breq12d 4017 . . . . . . 7 (𝑑 = 𝐷 β†’ ((π‘₯𝑑𝑦) ≀ ((𝑧𝑑π‘₯) +𝑒 (𝑧𝑑𝑦)) ↔ (π‘₯𝐷𝑦) ≀ ((𝑧𝐷π‘₯) +𝑒 (𝑧𝐷𝑦))))
2928ralbidv 2477 . . . . . 6 (𝑑 = 𝐷 β†’ (βˆ€π‘§ ∈ 𝑋 (π‘₯𝑑𝑦) ≀ ((𝑧𝑑π‘₯) +𝑒 (𝑧𝑑𝑦)) ↔ βˆ€π‘§ ∈ 𝑋 (π‘₯𝐷𝑦) ≀ ((𝑧𝐷π‘₯) +𝑒 (𝑧𝐷𝑦))))
3024, 29anbi12d 473 . . . . 5 (𝑑 = 𝐷 β†’ ((((π‘₯𝑑𝑦) = 0 ↔ π‘₯ = 𝑦) ∧ βˆ€π‘§ ∈ 𝑋 (π‘₯𝑑𝑦) ≀ ((𝑧𝑑π‘₯) +𝑒 (𝑧𝑑𝑦))) ↔ (((π‘₯𝐷𝑦) = 0 ↔ π‘₯ = 𝑦) ∧ βˆ€π‘§ ∈ 𝑋 (π‘₯𝐷𝑦) ≀ ((𝑧𝐷π‘₯) +𝑒 (𝑧𝐷𝑦)))))
31302ralbidv 2501 . . . 4 (𝑑 = 𝐷 β†’ (βˆ€π‘₯ ∈ 𝑋 βˆ€π‘¦ ∈ 𝑋 (((π‘₯𝑑𝑦) = 0 ↔ π‘₯ = 𝑦) ∧ βˆ€π‘§ ∈ 𝑋 (π‘₯𝑑𝑦) ≀ ((𝑧𝑑π‘₯) +𝑒 (𝑧𝑑𝑦))) ↔ βˆ€π‘₯ ∈ 𝑋 βˆ€π‘¦ ∈ 𝑋 (((π‘₯𝐷𝑦) = 0 ↔ π‘₯ = 𝑦) ∧ βˆ€π‘§ ∈ 𝑋 (π‘₯𝐷𝑦) ≀ ((𝑧𝐷π‘₯) +𝑒 (𝑧𝐷𝑦)))))
3231elrab 2894 . . 3 (𝐷 ∈ {𝑑 ∈ (ℝ* β†‘π‘š (𝑋 Γ— 𝑋)) ∣ βˆ€π‘₯ ∈ 𝑋 βˆ€π‘¦ ∈ 𝑋 (((π‘₯𝑑𝑦) = 0 ↔ π‘₯ = 𝑦) ∧ βˆ€π‘§ ∈ 𝑋 (π‘₯𝑑𝑦) ≀ ((𝑧𝑑π‘₯) +𝑒 (𝑧𝑑𝑦)))} ↔ (𝐷 ∈ (ℝ* β†‘π‘š (𝑋 Γ— 𝑋)) ∧ βˆ€π‘₯ ∈ 𝑋 βˆ€π‘¦ ∈ 𝑋 (((π‘₯𝐷𝑦) = 0 ↔ π‘₯ = 𝑦) ∧ βˆ€π‘§ ∈ 𝑋 (π‘₯𝐷𝑦) ≀ ((𝑧𝐷π‘₯) +𝑒 (𝑧𝐷𝑦)))))
3321, 32bitrdi 196 . 2 (𝑋 ∈ 𝐴 β†’ (𝐷 ∈ (∞Metβ€˜π‘‹) ↔ (𝐷 ∈ (ℝ* β†‘π‘š (𝑋 Γ— 𝑋)) ∧ βˆ€π‘₯ ∈ 𝑋 βˆ€π‘¦ ∈ 𝑋 (((π‘₯𝐷𝑦) = 0 ↔ π‘₯ = 𝑦) ∧ βˆ€π‘§ ∈ 𝑋 (π‘₯𝐷𝑦) ≀ ((𝑧𝐷π‘₯) +𝑒 (𝑧𝐷𝑦))))))
34 sqxpexg 4743 . . . 4 (𝑋 ∈ 𝐴 β†’ (𝑋 Γ— 𝑋) ∈ V)
35 elmapg 6661 . . . 4 ((ℝ* ∈ V ∧ (𝑋 Γ— 𝑋) ∈ V) β†’ (𝐷 ∈ (ℝ* β†‘π‘š (𝑋 Γ— 𝑋)) ↔ 𝐷:(𝑋 Γ— 𝑋)βŸΆβ„*))
363, 34, 35sylancr 414 . . 3 (𝑋 ∈ 𝐴 β†’ (𝐷 ∈ (ℝ* β†‘π‘š (𝑋 Γ— 𝑋)) ↔ 𝐷:(𝑋 Γ— 𝑋)βŸΆβ„*))
3736anbi1d 465 . 2 (𝑋 ∈ 𝐴 β†’ ((𝐷 ∈ (ℝ* β†‘π‘š (𝑋 Γ— 𝑋)) ∧ βˆ€π‘₯ ∈ 𝑋 βˆ€π‘¦ ∈ 𝑋 (((π‘₯𝐷𝑦) = 0 ↔ π‘₯ = 𝑦) ∧ βˆ€π‘§ ∈ 𝑋 (π‘₯𝐷𝑦) ≀ ((𝑧𝐷π‘₯) +𝑒 (𝑧𝐷𝑦)))) ↔ (𝐷:(𝑋 Γ— 𝑋)βŸΆβ„* ∧ βˆ€π‘₯ ∈ 𝑋 βˆ€π‘¦ ∈ 𝑋 (((π‘₯𝐷𝑦) = 0 ↔ π‘₯ = 𝑦) ∧ βˆ€π‘§ ∈ 𝑋 (π‘₯𝐷𝑦) ≀ ((𝑧𝐷π‘₯) +𝑒 (𝑧𝐷𝑦))))))
3833, 37bitrd 188 1 (𝑋 ∈ 𝐴 β†’ (𝐷 ∈ (∞Metβ€˜π‘‹) ↔ (𝐷:(𝑋 Γ— 𝑋)βŸΆβ„* ∧ βˆ€π‘₯ ∈ 𝑋 βˆ€π‘¦ ∈ 𝑋 (((π‘₯𝐷𝑦) = 0 ↔ π‘₯ = 𝑦) ∧ βˆ€π‘§ ∈ 𝑋 (π‘₯𝐷𝑦) ≀ ((𝑧𝐷π‘₯) +𝑒 (𝑧𝐷𝑦))))))
Colors of variables: wff set class
Syntax hints:   β†’ wi 4   ∧ wa 104   ↔ wb 105   = wceq 1353   ∈ wcel 2148  βˆ€wral 2455  {crab 2459  Vcvv 2738   class class class wbr 4004   Γ— cxp 4625   Fn wfn 5212  βŸΆwf 5213  β€˜cfv 5217  (class class class)co 5875   β†‘π‘š cmap 6648  0cc0 7811  β„*cxr 7991   ≀ cle 7993   +𝑒 cxad 9770  βˆžMetcxmet 13443
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 614  ax-in2 615  ax-io 709  ax-5 1447  ax-7 1448  ax-gen 1449  ax-ie1 1493  ax-ie2 1494  ax-8 1504  ax-10 1505  ax-11 1506  ax-i12 1507  ax-bndl 1509  ax-4 1510  ax-17 1526  ax-i9 1530  ax-ial 1534  ax-i5r 1535  ax-13 2150  ax-14 2151  ax-ext 2159  ax-sep 4122  ax-pow 4175  ax-pr 4210  ax-un 4434  ax-setind 4537  ax-cnex 7902  ax-resscn 7903
This theorem depends on definitions:  df-bi 117  df-3an 980  df-tru 1356  df-fal 1359  df-nf 1461  df-sb 1763  df-eu 2029  df-mo 2030  df-clab 2164  df-cleq 2170  df-clel 2173  df-nfc 2308  df-ne 2348  df-ral 2460  df-rex 2461  df-rab 2464  df-v 2740  df-sbc 2964  df-csb 3059  df-dif 3132  df-un 3134  df-in 3136  df-ss 3143  df-pw 3578  df-sn 3599  df-pr 3600  df-op 3602  df-uni 3811  df-iun 3889  df-br 4005  df-opab 4066  df-mpt 4067  df-id 4294  df-xp 4633  df-rel 4634  df-cnv 4635  df-co 4636  df-dm 4637  df-rn 4638  df-res 4639  df-ima 4640  df-iota 5179  df-fun 5219  df-fn 5220  df-f 5221  df-fv 5225  df-ov 5878  df-oprab 5879  df-mpo 5880  df-1st 6141  df-2nd 6142  df-map 6650  df-pnf 7994  df-mnf 7995  df-xr 7996  df-xmet 13451
This theorem is referenced by:  isxmetd  13850  xmetf  13853  ismet2  13857  xmeteq0  13862  xmettri2  13864
  Copyright terms: Public domain W3C validator