Revision 5963c0edc394e063fc9e58b3330288446c61a4da authored by mkolosick on 23 April 2020, 23:57:54 UTC, committed by mkolosick on 23 April 2020, 23:57:54 UTC
1 parent 5a23fd2
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
Computing file changes ...
