Thm* f:(A B A). ( a:A, b1,b2:B. f(a,b1) = f(a,b2)  b1 = b2)  ( a,a':A. Dec( b:B. a' = f(a,b)))  Graph(a:A -- > f(a,b) | b:B) Graph(a,a':A. b:B. a' = f(a,b)) | [fun-graph-rel-graph] |
Thm* R1,R2:(T T Prop). ( x,y:T. R1(x,y)  R2(x,y))  Graph(x,y:T. R1(x,y)) Graph(x,y:T. R2(x,y)) | [rel-graph_functionality] |
Def DivGraph_1 == Graph(i,j: . i | j) | [divides-graph1] |