We are hiring ! See our job offers.
swh:1:snp:aeaf3dbb58f5be84b565e73b5ade1503ee8cb6d6
Raw File
Tip revision: f94b06de7edcb61d3c49f19417e53dc7dc21d552 authored by Anish Tondwalkar on 22 June 2021, 08:13:54 UTC
updated README
Tip revision: f94b06d
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
back to top