# a -> b and b -> c imply a -> c
x <- functional_dependency(
list(list("a", "b"), list("b", "c"), list("a", "c")),
c("a", "b", "c")
)
remove_extraneous(x)
# a -> b lets us remove b from {a, b} -> c
x <- functional_dependency(
list(list("a", "b"), list(c("a", "b"), "c")),
c("a", "b", "c")
)
remove_extraneous(x)
Run the code above in your browser using DataLab