ilyakooo0/Idris-dev
1
0
Fork 0
mirror of https://github.com/ilyakooo0/Idris-dev.git synced 2024-09-22 06:29:37 +03:00
Code Issues Projects Releases Wiki Activity

Fix proof script deprecation warnings

Browse Source
This commit is contained in:
David Raymond Christiansen 2015-09-10 18:01:36 +02:00
parent 90bbf061dc
commit 6cf7f5a9c5
1 changed files with 10 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
libs/contrib/Data/Heap.idr
View File

@ -133,21 +133,21 @@ instance Ord a => Monoid (MaxiphobicHeap a) where
-- Properties
--------------------------------------------------------------------------------
total absurdBoolDischarge : False = True -> Void
absurdBoolDischarge p = replace {P = disjointTy} p ()
where
total disjointTy : Bool -> Type
disjointTy False = ()
disjointTy True = Void
total
absurdBoolDischarge : False = True -> Void
absurdBoolDischarge Refl impossible
total isEmptySizeZero : (h : MaxiphobicHeap a) -> (isEmpty h = True) -> size h = Z
total
isEmptySizeZero : (h : MaxiphobicHeap a) -> (isEmpty h = True) -> size h = Z
isEmptySizeZero Empty p = Refl
isEmptySizeZero (Node s l e r) p = ?isEmptySizeZeroNodeAbsurd
isEmptySizeZero (Node s l e r) Refl impossible
total emptyHeapValid : Ord a => isValidHeap (empty {a}) = True
total
emptyHeapValid : Ord a => isValidHeap (empty {a}) = True
emptyHeapValid = Refl
total singletonHeapValid : Ord a => (e : a) -> isValidHeap $ singleton e = True
total
singletonHeapValid : Ord a => (e : a) -> isValidHeap $ singleton e = True
singletonHeapValid e = Refl
{-
@ -161,16 +161,7 @@ mergePreservesValidHeaps (Node ls ll le lr) (Node rs rl re rr) lp rp =
?mergePreservesValidHeapsBody
-}
--------------------------------------------------------------------------------
-- Proofs
--------------------------------------------------------------------------------
isEmptySizeZeroNodeAbsurd = proof {
intros;
refine void;
refine absurdBoolDischarge;
exact p;
}
--------------------------------------------------------------------------------
-- Debug