# R, 28 bytes

 funny(p1)-tio(^*^)/pc(2)<p2;

Standard R floating-point accuracy.