Require Export Bmc.Logic.
Definition lasso_fwd_conj (I : prop) (T : trans) (k : nat) : Prop :=
forall ss : sseq,
~(I ss.[0] /\ loop_free T ss 0 k).
Definition lasso_bwd_conj (T : trans) (P : prop) (k: nat) : Prop :=
forall ss : sseq,
~(loop_free T ss 0 k /\ ~P ss.[k]).

Lemma lasso_bwd_conj_eq :
forall (T:trans) (P:prop) (k:nat),
lasso_bwd T P k <-> lasso_bwd_conj T P k.