patrick/foliage-rs
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Continue testing implication

Browse Source
This commit is contained in:
Patrick Lühne 2020-04-06 22:07:24 +02:00
parent b6308695f6
commit 0c132edc07
Signed by: patrick
GPG Key ID: 05F3611E97A70ABF
1 changed files with 43 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
src/format/formulas.rs
View File

@ -1714,5 +1714,48 @@ mod tests
implies_right(if_and_only_if(vec![implies_right(p1(), q1())]), implies_right(if_and_only_if(vec![implies_right(p1(), q1())]),
if_and_only_if(vec![implies_right(p2(), q2())]))), if_and_only_if(vec![implies_right(p2(), q2())]))),
"(p1 -> q1) -> p2 -> q2"); "(p1 -> q1) -> p2 -> q2");
assert_eq!(format(
implies_right(implies_left(p1(), q1()), implies_left(p2(), q2()))),
"(q1 <- p1) -> (q2 <- p2)");
assert_eq!(format(
implies_right(and(vec![implies_left(p1(), q1())]),
and(vec![implies_left(p2(), q2())]))),
"(q1 <- p1) -> (q2 <- p2)");
assert_eq!(format(
implies_right(or(vec![implies_left(p1(), q1())]), or(vec![implies_left(p2(), q2())]))),
"(q1 <- p1) -> (q2 <- p2)");
assert_eq!(format(
implies_right(if_and_only_if(vec![implies_left(p1(), q1())]),
if_and_only_if(vec![implies_left(p2(), q2())]))),
"(q1 <- p1) -> (q2 <- p2)");
assert_eq!(format(
implies_left(implies_right(p1(), q1()), implies_right(p2(), q2()))),
"(p2 -> q2) <- (p1 -> q1)");
assert_eq!(format(
implies_left(and(vec![implies_right(p1(), q1())]),
and(vec![implies_right(p2(), q2())]))),
"(p2 -> q2) <- (p1 -> q1)");
assert_eq!(format(
implies_left(or(vec![implies_right(p1(), q1())]), or(vec![implies_right(p2(), q2())]))),
"(p2 -> q2) <- (p1 -> q1)");
assert_eq!(format(
implies_left(if_and_only_if(vec![implies_right(p1(), q1())]),
if_and_only_if(vec![implies_right(p2(), q2())]))),
"(p2 -> q2) <- (p1 -> q1)");
assert_eq!(format(
implies_left(implies_left(p1(), q1()), implies_left(p2(), q2()))),
"q2 <- p2 <- (q1 <- p1)");
assert_eq!(format(
implies_left(and(vec![implies_left(p1(), q1())]), and(vec![implies_left(p2(), q2())]))),
"q2 <- p2 <- (q1 <- p1)");
assert_eq!(format(
implies_left(or(vec![implies_left(p1(), q1())]), or(vec![implies_left(p2(), q2())]))),
"q2 <- p2 <- (q1 <- p1)");
assert_eq!(format(
implies_left(if_and_only_if(vec![implies_left(p1(), q1())]),
if_and_only_if(vec![implies_left(p2(), q2())]))),
"q2 <- p2 <- (q1 <- p1)");
// TODO: Implies + if and only if
} }
} }