octagonal/picolog
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Adds operators

Browse Source
This commit is contained in:
Julien THILLARD
2026-02-10 15:41:56 +01:00
parent 0f721e34c4
commit 21414f75db
10 changed files with 329 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/main.rs
View File

@ -17,11 +17,20 @@ fn main()
mult(zero, X, zero).
mult(s(Y), X, Z) :- mult(Y, X, W), add(W, X, Z).
A + B :- test.
op(8, xfx, ^).
A ^ B + C :- test.
(A::B)::C :- A.
[Hd|Tl] :- Hd::Tl.
"
.into();
//let prop: Body = "integer(s(X))".into();
let prop: Body = "mult(X, s(s(s(zero))), s(s(s(s(s(s(s(s(s(zero))))))))))".into();
println!("{}", module);
let prop: Body = "integer(s(X))".into();
// let prop: Body = "mult(X, s(s(s(zero))), s(s(s(s(s(s(s(s(s(zero))))))))))".into();
for c in module.prove(&prop)
{
println!("true:");