| rational(i0, j0) = rational(i, j) + rational(~ i1, j1), 0 < j1, 0 < j0, 0 < j ⊦ rational(i, j) = rational(i0, j0) + rational(i1, j1) |
Used simplifier rules: rational-add-same: ⊦ rational(i, j) + rational(i1, j) = rational(i + i1, j);%add-zero-01: ⊦ rational(0, j1) + rational(i0, j0) = rational(i0, j0);%add-asso: ⊦ (ri + rj) + rj0 = ri + rj + rj0;%add-comm: ⊦ ri + rj = rj + ri;%equal-same: ⊦ 0 < j → (rational(i, j) = rational(i0, j) ↔ i = i0);% ⊦ ~ i + i = 0;% ⊦ i + j + i0 = (i + j) + i0;% ⊦ i + j = j + i;