%query: ordered(i). %% ordered(Xs) :- Xs is an lte-ordered list of integers. %% %TWTYPES :- type ordered(listn). ordered([]). ordered([_]). ordered([X, Y | Xs]) :- less(X,s(Y)), ordered([Y| Xs]). %TWTYPES :- type less(nat,nat). less(0, s(_)). less(s(X), s(Y)) :- less(X, Y). /*TWDESC ordered(Xs) :- Xs is an lte-ordered list of integers. */ /*TWTYPES listn([]). listn([X|Xs]) :- nat(X), listn(Xs). nat(0). nat(s(X)) :- nat(X). */ /*TWDEMO selected_norms([listn,nat]). query(ordered(f,b)). query(less(f,b,f,f)). query(less(f,f,f,b)). */
content may be truncated. 'popout' for larger text window.
