changeset 1045:139d58917093

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Fri, 09 Apr 2021 10:26:01 +0900
parents aa3ec90f5b78
children 60b24b3dc0c6
files src/ToposIL.agda
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/ToposIL.agda	Fri Apr 09 09:51:02 2021 +0900
+++ b/src/ToposIL.agda	Fri Apr 09 10:26:01 2021 +0900
@@ -53,12 +53,14 @@
 
   open import ToposEx A c using ( δmono  )
 
-  -- λ (x ∈ a) → φ x
+  -- f ≡ λ (x ∈ a) → φ x or  ∃ (f : b <= a) →  f ∙ x ≈  φ x  
   record Select  {a b : Obj A} (Ω : Obj A) (α : Hom A (CCC.1 c) (Ω <= a) ) ( φ : (x :  Hom A  (CCC.1 c) a ) → Hom A (CCC.1 c) b )
          :  Set ( suc c₁  ⊔  suc c₂ ⊔ suc ℓ ) where
     field
       sl :  Hom A (CCC.1 c) (b <= a) 
       isSelect : (x : Hom A  (CCC.1 c) a  ) → A [  A [ CCC.ε c o < sl , x > ]  ≈  φ x ]
+      -- isUnique : (x : Hom A  (CCC.1 c) a  ) → (f : Hom A (CCC.1 c) (b <= a) )  → A [  A [ CCC.ε c o < f , x > ]  ≈  φ x ]
+      --   →  A [ sl  ≈ f ]
 
   -- functional completeness
   FC : Set ( suc c₁  ⊔  suc c₂ ⊔ suc ℓ )