Step * of Lemma is-list-if-has-value-fun-ax-mem

[t:Base]. ∀[n:ℕ].  Ax ∈ is-list-if-has-value-fun(t;n) supposing is-list-if-has-value-fun(t;n)
BY
(Auto
   THEN MoveToConcl 1
   THEN NatInd (-1)
   THEN Try (Complete ((RepUR ``is-list-if-has-value-fun`` THEN Auto)))
   THEN Auto
   THEN RepUR ``is-list-if-has-value-fun`` 0
   THEN (RWO "primrec-unroll" THENA Auto)
   THEN AutoSplit
   THEN Fold `is-list-if-has-value-fun` 0
   THEN RepUR ``is-list-if-has-value-fun`` (-1)
   THEN (RWO "primrec-unroll" (-1) THENA Auto)
   THEN SplitOnHypITE -1 
   THEN Auto
   THEN Reduce (-3)
   THEN Fold `is-list-if-has-value-fun` (-3)
   THEN HVimplies2 [1]
   THEN ThinTrivial) }

1
1. : ℤ
2. n ≠ 0
3. 0 < n
4. ∀t:Base. (is-list-if-has-value-fun(t;n 1)  (Ax ∈ is-list-if-has-value-fun(t;n 1)))
5. Base
6. ¬(n 0 ∈ ℤ)
7. (t)↓
8. ∀a,b:Base.  (if is pair then otherwise b)
9. ↑isaxiom(t)
⊢ Ax ∈ ↑isaxiom(t)


Latex:


Latex:
\mforall{}[t:Base].  \mforall{}[n:\mBbbN{}].    Ax  \mmember{}  is-list-if-has-value-fun(t;n)  supposing  is-list-if-has-value-fun(t;n)


By


Latex:
(Auto
  THEN  MoveToConcl  1
  THEN  NatInd  (-1)
  THEN  Try  (Complete  ((RepUR  ``is-list-if-has-value-fun``  0  THEN  Auto)))
  THEN  Auto
  THEN  RepUR  ``is-list-if-has-value-fun``  0
  THEN  (RWO  "primrec-unroll"  0  THENA  Auto)
  THEN  AutoSplit
  THEN  Fold  `is-list-if-has-value-fun`  0
  THEN  RepUR  ``is-list-if-has-value-fun``  (-1)
  THEN  (RWO  "primrec-unroll"  (-1)  THENA  Auto)
  THEN  SplitOnHypITE  -1 
  THEN  Auto
  THEN  Reduce  (-3)
  THEN  Fold  `is-list-if-has-value-fun`  (-3)
  THEN  HVimplies2  0  [1]
  THEN  ThinTrivial)




Home Index