#lang ivy1.7

include order

instance t : unbounded_sequence 

var v : t
relation p(X:t)


action a(bound:t) = {
    while some x:t. (x < bound & ~p(x)) {
	assert ~p(x);
	p(x) := true
    };
    assert X < bound -> p(X)
}

export a