# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1589030712 -32400
# Node ID 6630dab08784e456b6d25660e8a7d9d162581498
# Parent  81d639ee9bfd049bdbadf4674487c4ee01ee2d9f
...

diff -r 81d639ee9bfd -r 6630dab08784 LEMC.agda
--- a/LEMC.agda	Sat May 09 22:03:17 2020 +0900
+++ b/LEMC.agda	Sat May 09 22:25:12 2020 +0900
@@ -121,8 +121,8 @@
                   } 
                 ... | no n =  record {
                       min = min min3
-                   ;  x∋min = ?
-                   ;  min-empty = {!!}
+                   ;  x∋min = {!!}
+                   ;  min-empty = min3-empty -- λ y p → min3-empty min3 y p    -- p : (min min3 ∋ y) ∧ (x ∋ y)
                   }  where
                        lemma : (a-choice ch1 == od∅ ) → od→ord (a-choice ch1) ≡ o∅ 
                        lemma eq = begin 
@@ -136,6 +136,11 @@
                        ch1not ch1=0 = n (lemma ch1=0)
                        min3 : Minimal (a-choice ch1) ch1not
                        min3 = ( prev (proj2 (is-in ch1)) (λ ch1=0 → n (lemma ch1=0)))
+                       x∋min3 : a-choice ch1 ∋ min min3
+                       x∋min3 = x∋min min3 
+                       min3-empty : (y : OD ) → ¬ ((min min3 ∋ y) ∧ (x ∋ y))
+                       min3-empty y p = min-empty min3 y record { proj1 = proj1 p ; proj2 = {!!} } --  (min min3 ∋ y) ∧ (a-choice ch1 ∋ y)
+                           -- p : (min min3 ∋ y) ∧ (x ∋ y)
 
                    
          Min1 : (x : OD) → (ne : ¬ (x == od∅ )) → Minimal x ne