swh:1:snp:aeaf3dbb58f5be84b565e73b5ade1503ee8cb6d6
Tip revision: cda4560576f3b975008fe892fe4fcaaaa71019fe authored by Anish Tondwalkar on 16 March 2020, 20:43:43 UTC
fix tests
fix tests
Tip revision: cda4560
mochi-d2.fst
module D2
assume val choice : bool
val app : #n:int -> f:(x:int{n <= x} -> int) -> u:int{n <= u} -> int
let rec app #n f x = if choice then app f (x + 1) else f x
val check : x:int -> u:int{x <= u} -> int
let check x y = if x <= y then 1 else (assert False; 2)
val main : int -> int
let main i = app (check i) i