even simpler version of NQueens

This commit is contained in:
krasimir
2010-03-24 21:04:37 +00:00
parent ab3127b5dd
commit 69535e2b6b
4 changed files with 5 additions and 11 deletions

View File

@@ -6,15 +6,11 @@ data zero : Nat ;
succ : Nat -> Nat ;
cat NE (i,j : Nat) ;
cat LT (i,j : Nat) ;
data zNE : (i,j : Nat) -> NE i j -> NE (succ i) (succ j) ;
lNE : (j : Nat) -> NE zero (succ j) ;
rNE : (j : Nat) -> NE (succ j) zero ;
zLT : (n : Nat) -> LT zero (succ n) ;
sLT : (m,n : Nat) -> LT m n -> LT (succ m) (succ n) ;
fun plus : Nat -> Nat -> Nat ;
def plus zero n = n ;
plus (succ m) n = succ (plus m n) ;