Ramda WhereEq only on predicate properties

ramdaWherePropEq.js

var props = {
  a: true,
  b: true,
}

R.whereEq(props, {
  a: true,
  b: true,
}) // => true

var props = {
  a: true,
  b: true,
  c: false
}

R.whereEq(props, {
  a: true,
  b: true,
}) // => false

const wherePropEq = R.curry((props, predicate) => R.whereEq(
  R.compose(R.pick(R.__, props), R.intersection(R.keys(props)), R.keys)(predicate),
  predicate,
))

wherePropEq(props, {
  a: true,
  b: true
}) // => true