From 714eefa9224786617aa7f81b6805b4a88e6744d8 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Wed, 25 Mar 2020 23:45:00 +0000 Subject: Update printing --- src/common/Coquplib.v | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/common') diff --git a/src/common/Coquplib.v b/src/common/Coquplib.v index 310efa5..c633874 100644 --- a/src/common/Coquplib.v +++ b/src/common/Coquplib.v @@ -38,3 +38,7 @@ Ltac solve_by_inverts n := end. Ltac solve_by_invert := solve_by_inverts 1. + +(* Definition const (A B : Type) (a : A) (b : B) : A := a. + +Definition compose (A B C : Type) (f : B -> C) (g : A -> B) (x : A) : C := f (g x). *) -- cgit