mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-23 01:52:50 -06:00
even simpler version of NQueens
This commit is contained in:
@@ -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) ;
|
||||
|
||||
Reference in New Issue
Block a user