Commit aa8a0f33 authored by Jean-Christophe Filliâtre's avatar Jean-Christophe Filliâtre
Browse files

new library list.Sum

parent 8ec3700e
......@@ -486,6 +486,18 @@ theory Prefix
theory Sum
use export List
use import int.Int
function sum (l: list int) : int = match l with
| Nil -> 0
| Cons x r -> x + sum r
(** {2 Induction on lists} *)
theory Induction
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment