tweaks to playground

This commit is contained in:
2024-11-08 19:50:26 -08:00
parent ed44d427cd
commit adc967c464
6 changed files with 18 additions and 10 deletions

View File

@@ -1,6 +1,5 @@
module Day1
-- Need to visit Lib.newt for this to work in playground
import Lib
digits1 : List Char -> List Int

View File

@@ -1,6 +1,5 @@
module Day2
-- Need to visit Lib.newt for this to work in playground
import Lib
Draw : U

View File

@@ -73,7 +73,6 @@ TooBig l u h = Sg Nat (\ x => T23 l (N x) h * T23 (N x) u h)
insert : {h : Nat} {l u : Bnd} -> Intv l u -> T23 l u h -> TooBig l u h + T23 l u h
-- Agda is yellow here, needs h = x on each leaf
-- The second arg to the second _,_ is unsolved and pi-typed
insert (intv x lx xu) (leaf lu) = inl (x , (leaf {_} {_} {x} lx , leaf {_} {_} {x} xu))
insert (intv x lx xu) (node2 y tly tyu) = case cmp x y of
-- u := N y is not solved at this time