24 lines
437 B
Text
24 lines
437 B
Text
import algebra.ring
|
|
|
|
variables a b c : nat
|
|
variables H1 : a = b
|
|
variables H2 : b = c
|
|
set_option pp.all true
|
|
|
|
#app_builder eq.refl a
|
|
#app_builder eq.trans H1, H2
|
|
#app_builder eq.symm H1
|
|
|
|
open algebra nat
|
|
universe l
|
|
constant A : Type.{l}
|
|
constant s : comm_ring A
|
|
attribute s [instance]
|
|
variables x y : A
|
|
|
|
#app_builder eq.refl s
|
|
#app_builder eq.refl x
|
|
#app_builder add x, y
|
|
#app_builder add a, b
|
|
#app_builder mul a, b
|
|
#app_builder sub x, y
|