Implement different version of proof production with long transitivity chains and experiment with R.apply