fact: Definition Tfsum := fun x y => (exists x0, x = inr nat (x0+2)%nat /\ y = inl nat (S x0)) \/ (exists x0, x = inl nat (x0-2) /\ y = inr nat x0).
imports: Coq(Relations Lia) AlmostFull.PropBounded(AlmostFull) AlmostFull.PropBounded(AlmostFullInduction) AlmostFull.PropBounded(AFConstructions)