Section fractran_mma.
Variables (ll : list (nat*nat)) (Hll : Forall (fun c => fst c <> 0 /\ snd c <> 0) ll).
Let i := 1.
Definition fractran_mma := mma_fractran_step i ll i.

Lemma fractran_mma_complete v :
v#>dst = 0
-> (i,fractran_mma) /MM2/ (i,v) ↓
-> ll /F/ (v#>src) ↓.