lean2/tests/lean/subst3.lean

(* import("macros.lua") *)

theorem T (A : Type) (p : A -> Bool) (f : A -> A -> A) : forall x y z, p (f x x) => x = y => x = z => p (f y z) :=
   take x y z, Assume (H1 : p (f x x)) (H2 : x = y) (H3 : x = z),
      Subst' H1 H2 H3.

print environment 1.
feat(frontends/lean): use '(* ... )' instead of '(* ... **)' for script code blocks Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-01-05 18:32:47 +00:00			`(* import("macros.lua") *)`
feat(frontends/lua/parser): allow users to specify the precedence of macros Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-12-25 20:27:56 +00:00
feat(frontends/lean): use lowercase commands, replace 'endscope' and 'endnamespace' with 'end' Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-01-05 20:05:08 +00:00			`theorem T (A : Type) (p : A -> Bool) (f : A -> A -> A) : forall x y z, p (f x x) => x = y => x = z => p (f y z) :=`
feat(builtin/macros): rename 'For' macro to 'take' Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-01-05 19:08:55 +00:00			`take x y z, Assume (H1 : p (f x x)) (H2 : x = y) (H3 : x = z),`
chore(*): name convention, proof construnction functions/macros start with upper-case Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-01-04 02:11:01 +00:00			`Subst' H1 H2 H3.`
feat(frontends/lua/parser): allow users to specify the precedence of macros Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-12-25 20:27:56 +00:00
feat(frontends/lean): use lowercase commands, replace 'endscope' and 'endnamespace' with 'end' Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-01-05 20:05:08 +00:00			`print environment 1.`