Module Jst.Rel1


module Rel1: sig  end
Justifying ternary relations over terms.


type t = Term.t -> Jst.Three.t
val apply : Jst.Eqtrans.t -> t -> t
Test binary term relation r on f a and f b.
Parameters:
f : Jst.Eqtrans.t
r : t
a : 'a
val orelse : t -> t -> t
Parameters:
p : t
q : t
a : 'a
val yes_or_no : Jst.Pred.t -> Jst.Pred.t -> t
Parameters:
yes : Jst.Pred.t
no : Jst.Pred.t
a : 'a
val trace : Trace.level -> string -> t -> t
Parameters:
lvl : Trace.level
name : string
? : t