The negation isometry on real numbers

Content created by Louis Wasserman and malarbol.

Created on 2025-05-05.
Last modified on 2025-09-02.

{-# OPTIONS --lossy-unification #-}

module real-numbers.isometry-negation-real-numbers where
Imports
open import elementary-number-theory.positive-rational-numbers

open import foundation.binary-transport
open import foundation.dependent-pair-types
open import foundation.function-types
open import foundation.identity-types
open import foundation.universe-levels

open import metric-spaces.isometries-metric-spaces
open import metric-spaces.metric-spaces

open import real-numbers.dedekind-real-numbers
open import real-numbers.inequality-real-numbers
open import real-numbers.metric-space-of-real-numbers
open import real-numbers.negation-real-numbers

Idea

Negation of real numbers is an isometry of the metric space of real numbers.

Definitions

Negation of a real number preserves neighborhoods

module _
  {l1 : Level}
  where

  abstract
    neg-neighborhood-ℝ : (d : ℚ⁺) (x y :  l1) 
      neighborhood-ℝ l1 d x y 
      neighborhood-ℝ l1 d (neg-ℝ x) (neg-ℝ y)
    neg-neighborhood-ℝ d x y H =
      neighborhood-real-bound-each-leq-ℝ
        ( d)
        ( neg-ℝ x)
        ( neg-ℝ y)
        ( reverses-lower-neighborhood-neg-ℝ
          ( d)
          ( y)
          ( x)
          ( right-leq-real-bound-neighborhood-ℝ d x y H))
        ( reverses-lower-neighborhood-neg-ℝ
          ( d)
          ( x)
          ( y)
          ( left-leq-real-bound-neighborhood-ℝ d x y H))

Negation on the real numbers is an isometry

module _
  {l1 : Level}
  where

  abstract
    is-isometry-neg-ℝ :
      is-isometry-Metric-Space
        ( metric-space-ℝ l1)
        ( metric-space-ℝ l1)
        ( neg-ℝ)
    is-isometry-neg-ℝ d x y =
      ( neg-neighborhood-ℝ d x y) ,
      ( ( binary-tr
          ( neighborhood-ℝ l1 d)
          ( neg-neg-ℝ x)
          ( neg-neg-ℝ y)) 
        ( neg-neighborhood-ℝ
          ( d)
          ( neg-ℝ x)
          ( neg-ℝ y)))

  isometry-neg-ℝ :
    isometry-Metric-Space
      ( metric-space-ℝ l1)
      ( metric-space-ℝ l1)
  isometry-neg-ℝ = (neg-ℝ , is-isometry-neg-ℝ)

Recent changes