proposition: Lemma cap_eq : forall t, cap t = fcap (capa t) (fresh (S (maxvar t)) (nb_aliens t)).
proof: Proof. intro. unfold cap, fcap, fresh_for, nb_aliens. destruct (capa t). destruct p. refl. Qed.
imports: Coq(Sumbool) CoLoR(LogicUtil ACalls ATrs VecUtil ListUtil NatUtil EqUtil)