HigherOrderCO/Kind1
1
1
Fork 0
mirror of https://github.com/HigherOrderCO/Kind1.git synced 2024-09-11 08:45:32 +03:00
Code Issues Packages Projects Releases Wiki Activity

fix proof after change in lemma

Browse Source
This commit is contained in:
Rígille S. B. Menezes 2021-12-01 12:08:54 -03:00
parent 59a8eb6449
commit 82c9fdeb92
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
base/Nat/div_mod/spec.kind
View File

@ -37,7 +37,10 @@ Nat.div_mod.spec(
}: Equal(Bool, Bool.true, Nat.lte(d, self.b))
case cond {
refl:
let succ_out = Nat.div_mod.go.succ_quotient(d, 0, Nat.sub(n,d))
let H1 = mirror(H1)
let H1 = Nat.lte.comm.false(d, r, H1)
let succ_out_hyp = Nat.Order.chain(1, Nat.succ(r), d, refl, H1)
let succ_out = Nat.div_mod.go.succ_quotient(d, 0, Nat.sub(n,d), succ_out_hyp)
case succ_out {
refl:
let H0 = mirror(H0)
@ -50,8 +53,6 @@ Nat.div_mod.spec(
refl:
H0
}: Equal(Nat, Nat.sub(n, d), self.b)
let H1 = mirror(H1)
let H1 = Nat.lte.comm.false(d, r, H1)
let ind = Nat.div_mod.spec(Nat.sub(n, d), q.pred, d, r, H0, H1)
case ind {
refl: